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AN APOLOGY 


The Substance of this memo is to initiate Che naive LISP user 
into the intricacies of the system at the Project MAC A.+ I, Lab. It 
is cospoeed, at this time, of a Progress Report vft the development of 
the LISP System and a few appendices hut as Such should be nearly 
adequate to ataTt out a person who understands the. basic ideas of LISP* 
and has understood a minimal part of the LISP 1.5 Programmers manual 
Hi a rcaximal part of Clark Weisscan^a LISP 1.5 Primer. At some un¬ 
do LCTEiiiied time in the future a comprehensive document will be issued, 
consisting of an elementary introduction to LISP, a aelf-primer, the 
■cots of this document,, and numerous reference appendices * The com¬ 
prehensive guide will then replace A.I. mcmcs numbers 11&A* 152, 157, 
the LISP Progress Keport. this memo and all informal notes and Communica¬ 
tions. 


In the meantine. In order to inure the current user to the 
shock, of an information blackout, and in order to give him a glimmer 
of what it is that he dcesn f t know about, the following list bf Appendix 
titles if offered: 

A: The True Meaning of Top-level Global Variables in MACLISP 
Bf Hew to Speak to the LISP Allocator, When Initially 
Allocating the Size of Storage Areas 
Ct Syntax for Use with STATUS and SSTATHS 
P: All About TRACE and BREAK 
Ef The EDIT Feature in LISP 
Yi Using GRIND and INDEX 
G: Setting up Displays on the CRT 340 
H; Preparations for Compiling 
I: Coding in LAP 

J: Moby E/tt Devices usable in LISPj The Vidissector, the Clock, 
the Calcomp Plotter^ A/D and D/A Converters 
K: The EIC-PaC Package for Storing and Using Vidissector Pictures 
L: An Annotated Index of Functions, Facilities and Terns 

Preliminary versions of some of these appendices are attached to the 
back of this temo, along with a very temporary Appendix X. which attempts 
Co update those changes which are niSSing or at variance with the main 
body of this memo or with memo lib A. T5xcc.pt for aueh variances , memo 

•16A is still recommended as an annotated Index of functions and terms. 
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NOTATION 


The following items of notation are observed Jn tqe writing of 
this report* 

1TB* The double-guote character [ H 1 Is used as the standard 
meta-Linguistic worci or string quoting device. Alas* in several 
instances it is used in the more vulgar sense of indicating a 
non-standard or .insecure maaniftg imputed to a wore or porase* 
Unfortunately, the double-quote character i a itself part of the A11 
alphabet that maxes up the LISP input character set (in category II) 
of the PEAD syntax* se# page 25), and in oruer to avoid ambiguity, the 
examples of s-expressions on the succeeding pages will not utilize it* 
ITEM "LISPI.SPM" is an abbreviation for the LISP ] *5 Programmer's 
Manual* published by the H.I.T. Press. 

ITEM "MACLISP 0 refers to the PDP/6 implementation of ths programming 
Language LISP in use at the Artificial Intelligence Group of Project 
MAC. 

ITEM Capital letters of the English alphabet are used as atom 
constituents in sample s-expressions, and small letters are used as 
meta-linguiStic variables whose range roust be deduced from context* 
Thus * * EVAL s)° coulo stano for °(LVAL ABC J, or 

°<EVAL (CONs A fLI5T V1J)“ ano so on* Sometimes it is clear that the 
rangu of the variable is restricted to atoms, or to- lists* but 
occasionally the variable may be a list fragment* e.g*. "(LIST frao> rt 
could be "ILJST A J 11 * or W CU5X A 2t>% or “(LIST A ¥ (CAR Z» H . 


ll£wi Many sample programs and functions are given in the ^-language as 
used In LISP] ,5PM, ano in some instances suggestive names are used tor 
variables assumes to oe permenantly set to some character objects 
This is for emphasis, since ho reference to an input *tEAQ syntax, or 
to a universal evaluator is necessary for Interpretation of the 
meaning of the program* 3-expressions given as examples can only have 
functional meaning, or computational meaning, whan the means of 
application is specified that is, they inauce functions when paireo 
with a universal evaluator such as t^AL, Eince various 
Implementations differ in the action of tVAL, the one described in 
LISP l « 5PM will be considered the common denominator! the one employed 
by MACLISP, however, will be the arbiter for interpretation in this 
report. Some examples are best given as s-expressions because of the 
extended role that* r-type functions tPSUBR, FiXPEi} play for EYAL, and 
oecausa of the unity of function type within the m- language, 

ITEM Normal input mode for MACLISP is base eight, ana hence ell 
numbers appearing In this report are to be understood as represented 
in base eight* Exceptions* the following constructions indicate base 
ten - page number references,. English-described numbers (as opposea to 
muiielra 1-descri boo), numbers followed o y a. decimal—point, numbers 
having non-oetal digits, and the phrase ™36-bit w when referring to 
machine cell capacity, 

ITEM Thera are two print sets accepted for the ASCII alphabet, 
variously called "do ASCII" and *new ASCII 11 * Centrally this report 
attempts to use or simulate the "ola" alphabet of the Model 35 
teletype, rather than the "new" alphabet of the Mood 3?* There are 


it notable ^Xinnple 


only a few characters that are really different, 
being character number t36 which prints an an up-arrow in the "old 11 
and 35 a carat in the p new J< + 

ITEM Included in the ASCII character set are non- prim ting characters 
obtained by depressing a printing cnaracter while holding down the 
contra! kay? If this is done with "H 11 , for example, the character is 
called control-b ana is denoted by w I7 j m . 


INTRODUCTION 


iiACLIS^ is a dascantfent of the first operational program evisr 
written for the Digital Equipment Corporation PuP/6 computer* It was 
an Interpreter and minimal LISP system* written ana aeoucgeJ in the 
spring of 1264 by the staff at DEC ana members or the Tech moaei 
Sailraad Ciufc> - an organization which along with the M+E*t, student 
radio station NTSS has supplied a continuing stream of prospective 
programmers to the Artificial Intelligence Lroup* This unlikely feat 
was accomplished with the aid of a well-eqUippeu PLP/4 for editing, 
assembling and punching the program on paper tape* At about that time 
a wording PDP/6 was delivered to Project MAC, ana thy LISP program was 
an aid in testing the hew machine* 

Ideas from several other Implementations influenced the 
initial design, notably the CTSS version on the ItiM 7id94 t and the very 
minimal version for the PDP/1, however,, the decision to dispense with 
the a-list in the implementation, a major factor in the space econonmy 
and running speed of MACLISP, came some time later* An improved 
compiler was written as an adjunct to the system - compilation is done 
"Off-line*, and the resulting LAP cooe loaded into the system when 
aesirecu Although the compiler's output is both space-officlent and 
time-saving, it is the central focus of attention today for improved 
schemes such as "fast arithmetic", in the hope that many reasonable 
computations programmed in LISP may run in times comparable to tneir 
hUHTflArJ Counterparts* 

Indeed, because of the prominence of LISP in Artificial 


Intelligence applications! there is no other higher-level language 
usea in the A* I. Group t although -cin impressive array oi utility 
systems contribute to tne ease of using both LISP machine 

language; TI=CD f a text editor wtin display scope , for creating and 
servicing paper tape, magnetic tape, and magnetic disc riles (no 
punched-earn equipment is available); MIDAS, a machine language 
assembler with superb macro-generating features l EHjI , a monitor-lika 
system very helpful in debugging (ano extended in tne time-she, ring 
version to provioe other service functions, such ns binary dumping and 
loading); ano ITS, the Incompatible Time-sharing Gystem.,. The original 
:-ityls df MACLISP was console oriented - i ¥ a ¥1 on-line aha interactive 
with' ftf-AD input and control commands accepted from an on-line 
teletype, hith little modification, the same structure adapted itself 
wall to the tIme-sharing framework, namely a job under ihe ITS system! 
controlling one of the many teletype-like consoles available as remote 
terminals of the PDP/G Uurrently thure are tour Modal 3d teletypes, 
■tour General electric remote fceybc&ras with cnaracter-scopa displays, 
one AKL3 console, ana three telephone data-sets for automatic 
connection to other Model 3b ano Model 37 teletypes). Initially, when 
the job is started* MACLISP requests and accepts commands for 
allocating Its memory usage - how much core Is to be usod in total, 
how much of it is to be usea for fu11-word space, how much for the 

system push uown stack, and so on* i^rom that time on, only a few 

m 

control characters have an immediate cor.nand effect$ the main running 
of the Job is controlled by a ri top-level 11 function isae page id) 


Refinements end Restrictions of the LloP Interpreter 


There is no explicit s-list for E/AL* All vsri&ule biiiaings 

octur es SPECIAL values, arid E^AL does not search an e-list for 

variable binoings, but searches the p-list [property list! of the 

vairiaole to de EVALea, in order to find the address of its SPECIAL 

value cell. On the whole, this implementation is considerably faster 

running since atom evaluation is quick and not dependent on tn£ length 

of the s-list iwhlch increases, of course, with increasing depth of 

function calling)* MACLISP, however, cannot dispense with the binding 

ano unwinding of variables, ano a special stack is used to nolo the 

information for unQinoing after lamboa conversion ialso, for unbinding 

after PROG evaluation!* Thus those variaoles whose values are changed 

toy lambda or prog binding must oe restored after the evaluation is 

completed* The stack of restoration Information is called The Special 

Pi>L iPDL for push down list) and is .a weak equivalent Of the a-list in 

other systems* by means lnolCAted below, a program may obtain a 

pointer into the stack area which will serve as an a-list to give as 

an argument to subsequent explicitly called functions, but which will 

* 

no longer nave meaning If returned as a value of the function which 
created It* In short, such an a-llst will be useful at deeper levels 
in the computation, but not at higher levels* The problem is, quite 
simply, that this weak a-list is only a linear stack and does not have 
the tree-lixe structure necessary in general* Masojess to say, there 
is no need for COMMON variables, since the interpreter has access to 
the SPECIAL calls, and there are no APvALS, nor functions CSfl or 


CScTJ* in order to Conserve space,-9 VALUE property pointing to the 
atones SPECIAL cell is not placed on its p-list until it Is first 
bound, either through lambda or prog binding or through use of SbT* 

The interpreter admits three conventions for passing arguments 
to machine language functions (some systems have many more - ths bolt. 
Beranet £ Jiewman LISP has five or eight doperuling on now one counts)* 
The name of each defined function carries on Its p-list an Indicator 
of which convention is used, paired with the adnress of tne subroutine 
code. The three types are called SUBfr, FSUBfi, and LSUisR. The first 
two should be familiar enough to persons acquainted with LISP 1.5* the 
third may be Iloosely! viewed as indicating a function generalized 
along the lines of the function LIST ~ thore are a variable number of 
arguments end EVAL, when, working on a form FF whose car is an LSUfiRy 
Obtains the arguments by successive evaluation of cedrtfFJ, caddrIFFJ, 
* * - , The arguments are placed on a stack, called the Regular 
PDL r ana the number of arguments is itself also passed along to the 
subroutine. One may fagain loosely! view HSUBti v s as indicating 
functions generalized along the lines of the function QUOTE - there is 
exactly one argument, and when EVAL is working on a form FF whose car 
i$ an PSUBh, It simply passes along car[FFl as argument. EXPP-'s and 
FEXPR^s may be viewed simply as SUBR^s and FSUBR^s written in LISP 
code rather than machine code. As in other implementations* If tho 
lAWBJA expression pairea with a FEXPR has two lambda variable instead 
of the expected one T than *-.y pan entry to the Junction the second 

m 

variable is bouno to a representation of the currant a-^list, which may 
subsequently oe given as an argupient to EVAL or APPLY a Indeeo, a- list 


manipulations ora rare among the users of MACLISP ang EYAL aha APPLY 
always permit the omission of arguoients or lambda variables pertaining 
to a-lists* Thus one generally writes 

CEVAL EXPRESSION) 


ratner than 


{£VAL EXPRESSION 00RScNT-A-LIST) 


ano similarly one usually oefines FEXPR^s 

(LAMBDA (L* (PRIM (CAR U)) 

In fact, another important application of U:Jb;-.■'s is for SUSP 
type routines which have, say, three arguments, the third of which is 
almost always given some standard value; thus the subroutine Liiay be 
called with two arguments only, the third using supplied oy default; 
yet the third may be supplier explicitly in the calling program when 
some non-standard value is oesired, Jo obtain the L~type argument 
convention for an EXPft, no new indicator is used (such as one might 
expect LEXER), but instead the lambca list is replaced by a non-'WIL 
atom which upon entry is bound to the number of arguments; and in the 
cooa, the form 

(AUG N> 

is useo to obtain the n^th argument» 

The MACLISP interpreter has been slightly extended in the 
direction of computed functions* The indicator MACRO is recognlzea by 
EVAL as follows* when EVAL'ing FF with ear(FF] being atomic and having 
o MACRO property, the function corresponding to the property is 
applied to FF yielding FF^, ana the whole £VAL cycle begins anew on 
EF'„ Functional arguments and computed function descriptions are 


discovered by EVAL in th* following circumstance 

t I ) c&HFFJ is not a lambda* label* nor funarg expression* 

12) earlFFl is not an otonv with some appropriate function 
indicator on its p-list* 

In such a case* FF is replaced by Fr' - consievolE cart FF 3 J i 
cdrIFrJJ and again the aval cycle begins anew on Ft'" * Appendix o of 
LISPt.5W1 shows an implementation which would allow only LAPSES, 
oUErt's* ana lambda* label ana funarg expressions to occur in such 
circumstances* Jn fact* most systems have not generalised apply to 
accept an r~type function as argument* A Somewhat arbitrary onolca 
has oeen faade for this generaliaation in .vlACLlSF - tne secona argument 
to APPLV Is passed along directly as the single argument to the r-fora 
function “ -anc although it has some applications* it has not been used 
extensively ana is still considered open to change* 



txtenoea Interpretation of Familiar Functions 


Conditional expression structure is one oi the first LliP 

Concepts tnat one wants to generalise* n&ther than try to emulate 

ALGOL patterns such as M IF% "THEN"* and “LLSc" t tne following were 

additions maoe to the interpretation of CONG'S* 

£l> All COhti's will produce a value; if the COWLj clauses are 
exhausted with none being selected* then MIL is the value to 
be return eo 

(2) CQND "pairs'* are extended to CGNQ n-tuples* if the first 
member uf an n-tuple evaluates to non^NlL* then the 
remainder are evaluated in order and the value of the last 
one is the return value. One-tuples are permissible, in 
which case the one value* if non-NlL, is returnee.. 

(JG and RETURN may be composed to any depth in the scope- of a 

PPQG| evaluation of either on* is very much like the appearance of an 

error during an error—set computation. However* it snoulo ne 

considered a mistake to execute a GO or RETURN which is not explicitly 

within the scope of a PROG* for- such usage cannot be properly 

compiled. Similarly* it is not possble to w go ,l: to a tag outside the 

Immediately dominating PROG* Computed GO'S are permitted; if the 

argument in a 00 is not explicitly an atom, then it is evaluated and 

an attempt is maoe to '"go 1 * to the result. For example, if X is bound 

to A, then 

(GO X) 

will go to tag X* whereas 

(GO Cb'VAL (QUOTE X)>) 

will go to tag A* 

using the LSUBfl convention, many familiar functions of two 


arguments have been extended to operate on a variable number of 
arguments! generally by repeatec aplication of the function from left 
to right! APPEND* NCONC, LtSSP, GfiEATeEP, MAX, MIfi, PLUS, IIAES, 
QUOTIENT* DIFPEfi£NCE» WAPLI5T, MAP* KAPCOh, MAPCAii, iaARC* VlAPCAN, 
c*DOLj= (see page 16 for explanation of BOOLE) ♦ The orcer of arguments 
to the WAP aeries of functionals is in conflict with that of LISP 1*5 
- the first arg is a function GO of n arguments (n>&l arro the 
remaining n arguments are lists which will oe simultaneously mapped 
into the arguments of GQ» The Hats no eg. not be of equal length! the 
process stops when the shortest is exhausted, UAPC, MAPCAR, and 
MAPCAN are just like WAP, JtAPUST, and MAJPCCftl respectively except that 
CAR of each successive sub list is taken as argument to the supplied 
function, retner than the subiist directly* 

PrOG£ is implemented as an LSUoR with two or more arguments, 
and whose value is the second argument! evaluation t of course, still 
follows the regular order. Every lambda expression is also implicitly 
what in some other systems is called PfcOGN* Applying 

{LAMBDA List el #2 , * _ enl 

will cause the evaluation of el to @n, in order, returning the value 
of en as result, 

LAST and MEMBER have been extended to provide slightly more 


useful values* 


Lsstil) “ C nuilLll v null! corf 1 ]J *■ 1 
T lastUdrUJJl 

member Cxi iJ = E nulilli ^ tilJL, 

equallxi eariUJ * 1 
T + member Ex* ccrtiiJ] 

The new interpretation Of LAST provides a fast way to find tna eno of 
a list rather than the last element of the list* Similarly* if i'i^iiticiri 
is to return a non-LIL value, it will be tnat tail of the original 
list whereat the member was found* A function MfciuQ is implemented 
vfhlcn is merely MtMB£E using an ELI test rather than an cUUAL test as 
oisplayed above. Similarly, ASSC is ASSOC with an cti test (ASSOC uses 
an EQUAL test). 

PEIN3 will print out one full S-expression inat necessarily 
atomic), ano when printing a literal atom whose PNAMt contains 
characters which are not syntactically legal for RtALKing back in t 
PRIWI will print a slash before such illegal characters. Thus the 
atom with PNAtfH *A*£i“ will print out as the four characters ^A”, V“, 

"* JI , "e*. READ, ih turn, recognizes slash as a special character 
that in effect causes the next character to be treatsp syntactically 
as an alphabetic character* For example, the string w would 

be read in as the literal atom with PNAMt rt A(a/C il ; PRItfC is a new 
function which will print out one S^axpression, without inserting any 
slashes before READ-illegal characters. PRlNI is important when one 
wishes to write 5-expressions out on auxilliary memory and read them 
back in at a later time! PRINC is important when on? wants to generate 
his own output format, or print a message which is stored as the PNAME 
of some atom. 


The function PRINT is defined as 

MIxl? pragfNi terpritl* prinllxli princlspeceli r eturrdx ] J] 

The function ISACt is not built into EVAL, but is encoded in 
EXP& form* fto part of it is normally resident in the System, out ft 
must be read-in from an auxiliary file tin the Time ana ring 
environment, many such extra packages are storeo on a disc pack celled 
the CGk/iGN device)* A traced function has the function property on 
its p-list temporarily replaced by a standard form LXPR or htAPii which 
handies the trapsing work before actually applying the originsL 
function* The facility has been extended to work with every function 
lyes, even PHiiTT, CGNil, SETQ, etc*) except possibly uQ and PET ITEM* A 
program switch exists to inhibit direct linking from compiled 
functions, so that even calls from compiled code may be traced (see 
page 21 t STATUS)* Provision has also been made for conditional 
tracing fat each call of the traced function, a predicate will be 
evaluates to determine whether or not to trace that call), and for 
conditional bresk-upon-entry fa BPEAli cells a reao-aval-print loop 
similar to the normal top level, but some input, usually Sp, is 
reserved to signal the return from the HhEAK and the continuation of 
computation). 

The garbage collector, sometimes called the reclaimer, of 
MACLISP performs a few more functions than that of more standard 
1 implementations* On the simpler sioe, an internal switch fsat by 
typing fd on the Job console or by calling SSTATUS with an appropriate 
argument - sea page 21) can cause the garbage collector to print out, 
on each collection, statistics telling why the collection was 


' initiated and how much space is available in e^cb storage urea* 
Arrays ana compiled programs share the binary program Space alioted by 
the iMCLlbP allocator* ana while one seldom axp-ects to exhaust his 
memory facilities with “dead" binary programs* some applications 
create and destroy arrays with alarming rapidity* Ths garbage 
collector dynamically handles the assignment ano reclamation of space 
for arrays {calling the time sharing core allocator, wnen all else 
fails* to try to extend the job's memory allotment)* Occasionally* 

the living arrays will be relocated ano compact!fisa toward the top 
end of oi^OHO space* but as yet no facility is available for dynamic 
relocation of compiled programs {see chapter on future plans, page 
, 3.9)* Occasionally, also, the gabage collector will dectae tnat far 

r i . 

too much BPCRu Space is sitting idle* and it will attempt to return 
some core aiemory to the time sharing system, although this feature may 
be disenabled with SSTATUo* 

Although atomic objects read in oy fifc-AD are placed in the 
QEL1ST to protect them from inadvertent collection and to insure 

. . • * ■ *i ■ • 

identification of future tokens of the same atom, some applications in 
natural language: occasionally get bogged down with a bloateo obiist in 
which not all atoms are of continuing utility, and the LISP programs 
themselves are not able to decide which atoms should be pEMO&'eo* The 
concept of a Truly horthless Atom is defined* a ThA is an atom with a 
trivial p-iist {only a PtiAME property) and which is part df no living 
list structure except the O&LIST* A feature of the garbage collector 
will reclaim any TrtA, but such feature may be turned off or on under 
program control I because most applications uo not need it, it is not 


normally on (see page 2] on SsiTATUS)# Compileu code directly accesses 
the Jf'ttlAL cells of free (or SPECIAL! variables, an^ no provision has 
been made for relocating such addresses when useo in binary program 
space* thus this feature* Chosen lor speed considerations* is the 
major urawoacjt to lnvple mentation Of a compact! tying (or free storage 
relocating! garbage collector* ano is the sole reason that an atom 
whicn- has a VALUE indicator on Its p-list cannot da reclaimed as a 
TaA* even though the atom is no longer bound to any value (see p^ye 2 
for more on the VALob indicator), 

MACLISP Is essentially a machine language implementation of 
the universal function tVAL along with some initial a^list (for 
“environment tl since MACLISP has no true a~list> ana *ith marty other 
subroutines useful for reading* manipulating, and writing out 
^expressions, The system comes to life through its J| top level 11 
function! that is t “top level" may he vieweu as the continuous 
re-application in the top-level environment of some function of no 
arguments* r'or systems using fcYALQUOTE, the top-level function is 
very much like 

Mill printtepply I reaoll; reaaLini 

where rfcAL reads in one U-expression from the current input channel* 
The normal top-level for MACLISP is equivalent to 

Mill errset [prog2i terpr it 1; print [ evaHreaoL ] 1 i ] t TJJ 
in the vernacular of programmers* one could say that bVAL is the 
top-level for MACLISP* rather than cvALCUOTb* 


The prograJiLifcr in .linCLIoP, however, has tnc capability to change toe 
form given to £AKiii:I for eve lust ion* tor sjia.npic, J,Li oruer to change 
to isVAUcUoIc, one coulG replete th* KtiUG* on the pr&cGcuftig page with, 
say, 

proy2tterpri(Ji printi apply(raaolJs rasaiJJlj 

tsee discussion of the functions oIAIUj OnJ SwTAluS on page i I >. 

Three global variables, i*e* those witn Gildings at toe top level, 

have special relevance to the top-level function* 

U J If the value of bA&jAG is not rilL* then a oacjctrace is 

printed out lor any error which propogates all the way up to 

the top level function terrors which nave beer) rtiriStT oo not 

pop oeCji beyond tna thxobi in which tney occur!- The 

backtrace, essentially an inspection or the system PGL, will 
print out "fun| -tVALAku'S" to indicate thac ^VAl. has at that 
point commenced the evaluation of arguments for the function 
fUni t ono '•lunl -cNTdi}" to inuieatu that function ru n I has 
oeen entereo Out not yet exited* dcasionaliy, LAKuAo will 
print out H funt-fun2 M to indicate that fun^: has oaen entered 
ny a tall iro.n fun i. 

(21 if tine value of *RSc.T is not 11IL, then tne phase of 
ttfRBfcT which restores the binding of special variaoles is 
bypassed (ano indeed all variables in iv-AuLIOP ere specials* 

This applies only to the top-lev^l "tciciStl " , but in J&any 
cases allows the user to inspect tne environment st the time 
of tne error- 

(31 bSRUST, normally set to AIL, is a list of forms to be 
£VAl/au upon recovering from an error prorogating te top 
Ijveli tnls allows the user to supply a little of his own 
reinitialization for special purposes* 

iioth *EiotT ano ihAKGAG are also function names Such tnat EvAu'lng 

(*:tSiiT 1) is fu lly equivalent to evAL^ing *RSsX TJ, ana 

similarly for BAKGAO, Typing fo on the job console (or tVAL'ing (IOC 

■all nas special relevance for the top-level EAtiStT - on error Is 

created whi.cn no ocher cAhSET can catch, all I/O channel switches are 

returne.-, to their initial state (see page 22), the top-level function 


is restored to the formal one ror rtACLlBP, and the message ] ‘Guli" is 



Liir J j . i- i/2l/\l Ik 


printed on, the console, Ihcs 10 1^ ^ uncon^i tional gjit signti t 

sirnliar co the Hi qoit signal aescrioeo on page 1c* 

iu& function hACLM** prcvices a .iie^ns of jilting computation 
ano returning control ox the console 10 cnc :i:oni torlng progr*,.i, 
Usually tilt -liOhilor is the extended version or i.. l . i m.Ac l is 

loaaad wntih tn£ user logs in at a console* but occasionally it is lid 
directly. In the formar case, storage areas not active at the lLulls of 
>1 AC D.lr 1 ■*ing are jeroeo so tn&t t binary ouftp to suxilliary castor y will 
ts*e less space? in the latter case, it is assuuito that thus user hss 
relinquished the J.ob f and it is logged out. 


Jew functions Aboed and Limitations on ramLltar facilities 

All property list [p-listi usage must be in palre^ form - 
fLAus are not aliowao. ATI RIB is not implemented (indeed, .-..CO JC could 
Be Uses to the same purpose), but the function PuTpJDH is provided as 
a means of placing a value ana corresponding indicator on an atom's 
p — ii st* 

putpropLatomi value! indicator! 

will insert "indicator 1 " followed by "value" 1 at the beginning of the 
p-list of "atom", unless thsre is already an inoicator or the same 
name on the p-llst, in which case the old value will be SPLACA^a out 
with the new, it is likely that the implementation of atomic 
structures will change, but the functions PUTRRQH ana GET will always 
0 $ kept "up to oftte 11 4see chapter on future plans). The indicator 

VALUE, whose paired value points to the atom's SPECIAL value cell, and 

the indicator AftRAY, are treated specially by the p-list handling 
routines, and there way soon be a oifferenf, and faster, 
implementation for the three basic and important properties* 

pname,value, ano function. Although GET serves as the stanoard p-list 
retrieval function, another function CEIL is provigad to solve the 
following problemsi 

41) to distinguish between the non-occurrence of an 
indicator, and the retrieval of a MIL value, 

(2! to ft no which indicator from among a list of indicators 
Is the one which otcurrs first 4 if any from the list occurr 
at all). 

Letting "pllstlaj" stand for the p-list of an atom "a", the 


implementat ion of GETL is very much like 


getlEa; 13 ■ Enot[atomle33 + errorEJi 
T +■ label{gat 11 ; 

lambda [Ex? 1H 

inulHx) + MLi 

mejnq£car£jOf H * H 
T * getmcdarU] t 13 311 
[plisttajj 133 

DtFPFiOP is essentially the FSUfift foria of PUTPROP, aiui is 

generally used at top leva! to place EXPS, FEtfPW, ant, MACRO properties 

on atoms* it has been the usual method of defining functions in 

MACLISP, but DEFUN has been implemented to provide a mora clear 

indication that such a definition is being performed, anu to allow 

smoother experimentation in the structure of p-list ano function 

representation, Some exampie definitions* 

{DEFPRGP DOUBLE 

[LAMBDA EN) (PLUS N N>) 

EX FRJ 

An optional type Indicator to DEFUJ'J (from among FEXPR, £XPR* or MACRO! 

Is placed Just after *DEJ : UN M , the default option being 4, EXPR"* 

EDEFUN FcXPS 
FPUTPROP fX) 

tPUTPRQP ECAR X) (CADfi X) (CAQDR XJ> 
i CAR X)> 

is equivalent to 
(DLFPHOP FPUTPRQP 

(LAMBDA tX> EPUTPEOP (CAR X! (CADR X3 (CADOH XJ1 (CAR A)i 
FEXPR) 

The pseuoo-function ARRAY serves to make array declarations, 
turning the name of the array into a finite function. An array may 
have from one to five dimensions [indices!, and may be Declared to 
holo list Structure or, Simply, direct - the matter Of importance 

is whether or not the garbage collector is to treat the array entries 
as pointing to living s-expresslons. ARRAY is implemented Ss ap 


and the or her or arguonants is slightly ui *10 rent Jroiu tract in 
i_IoP 1^, oemple form for tvAL* 

£AAAa¥ aname t-or-nil nl n2 * * . n.^ i 


wh^ra b<ls<b* ana t-Or-nil 15 the garbage toJUictor switch* ihe na'is 
re/ the array is t£a(en Directly ana hot *^1^.tsu “ the oihar 
arguments are evaluated* The array setting function* an rojurf* worts 
through a siae-effect in the accessing function* £* Aiding 

(STOCic (aname 11 12 * „ * ifcJ td 

will store tne value of ct in anaraelils 12} * . * iJtl* The MACLISP 

user has the ability to stretch or shrink tne size of an array, even 

after It has been in use for some tirae, intro are a few applications 
wherein tne proper size of the array is not known anti! alter is has 
been partially fiileo* it would be too wasteful to nave to declare a 
new array and transfer the entries oy means of LISP cooe* or to 
declare initially the array to be of monstrous- size* The function 
at-ARRAY Is called just like ARRAY* ano performs a stretching or 
Shrinking in the Si£4 declaration {this usually involves a call to 
APRAY aha a fast* fliemory block transfer!* In order to achieve 

something like lambda binding of arrays* ana the consequent 

reclamation of their space upon unbinding* one often computes 


*nori if 


( 


V AL (COisi 

CGUGTe AHtiktl 
(LIST 

(SRTQ A {ua.vbhv'iH 


t“or _ m 1 



ni 


r*k } >) 


in order to use A like a functions! argument, either witn APPU 

CAPPLY A tLIST i I 12 * * * ikl> 

or, if A has no function indicators on its p*llst, oirtictly with kVAL 

(Ait 12 * * * IkJ 

(sea page 4 on computed functions for tvAL; Any array spao^ which 
becomes cut-off from living list structure, either through repeated 
application of ARRAY to the same name* or through use o4 ut*ARRAY 
{which may re-spectfy size zero to remove ah arroyj, or through lambda 
unbinding, will eventually be reclaimed by the system, 

Some functions have not baen implemented because their purpose 
has been fulfilled by other features, tor example, SLXJLL is very much 
lllce a functional - its first argument selects one Of the sixteen 
possible ooolean functions of two variables, which Is than applied to 
the remaining arguments as a db-bit logics! bitwise operation - and 
thus there is no need for LDLCiti, LddA.^D, or LOGXQinL Similarly the 
excellent deougging features of the monitor-like system EDI, ana the 
other features of ITS make the function of DUMP unnecessary, in piece 
df TfcjiPUo-FUGll, the MACLISP user mSy read a real Lime internal clock 
(accurate to about !> microseconds!* ano may read a .run-time clock to 
Pleasure Q.KU* running time used by the joo which r&ad it (accuracy 
depends on changing conditions within ITS, but at bast is about bS 
microseconds!■ GDP'i ana CPI do net exist - one may obtain a copy of 
an s-expression s, eown to atomic level, by 

substtMILt MU si 

and a copy of the top level of a list 1 by 

appanuflT MLJ 


oUb-LlS nas been implemented very much cm shown lor ^ijAFic LloF on page 
9d of LlsPi.bJ-^, so that no unnecessary CtfuS'ing i 5 uonei however it 
ms ai an LQ test ana requires that all the bott = U pairs of the first 
argument oa of the form td . YJ where U is an atom (this last 
restriction allows a clever ana speedy implementation)* Sines there 
is no a-Iisc, and consequently only -SPECIAL valuer, there is no neea 
for APVAL3, nor functions CSET or C$cTu* The function PihfCTlON is 
functionally equivalent to UUQT£, out if the MACLISP user naeds a 
HUfrARG binolng with an a-llst of the limited form aescrloea on page E, 
he will obtain it using the function ^FUNCTION, Otner functions nave 
not dean implamented at #11, ana as yec there has been only one 
incident in which a user desires any of themi SEAFiCti, GWEP, 

PAIS, PECIP, EXPT, LITER, SELtCTQ, SPEAK. COGNI, UNCOUNT. None of the 
functions of the compiler or of LAP are normally resident in the 
system -sen page 34 about their usage* 

fcIiK5£T is the MACLISP equivalent of ERRORSlcT, and since there 
is no a-list‘nor any means to trap out on excessive consing, there are 
no arguments passed along for these two facilities, ERRSt'i is 
implemented as an F5UBR and EVALMng 

EERR5ET EE U 

will return UstCevaltEE J J if no errors are encountered during the 
evaluation of ttt otherwise at the occuranee of an error* computation 
will be interrupted,, the state of the system restored to that Just 
before beginning the evaluation of the EfifiStT, and an appropriate 
message printed out if evalli] is non-NIL* For ail errors generated 
oy the system, EKPStT returns the value rilL, but if the function £RR 


is called, curing the evaluation of £E* than a harmless error is 
creates (with no corresponding message > anu the argument to i,h:W is 
returnea as the value of the EMiStT. Typing iii on the console 
generates an vrror with toe message "lUIT"* Generally, one joes not 
wish to suppress error messages, so an alternate short form is 
provided» 


(EtffZSbT-lEE} 

evaluates Just liJte 

{ EKHSET th T> 

In view or the implementation or Input/Ouput for ft ACL I bp fsee 
pages 23 f 24l f it is hardly necessary to mention that hone of the 
functions In Appendix ft of the Lisp | t ? ftrograioifler^ s Manual are 
needed! ano furthermore there is no initial set of character objects* 
since there is no difficulty In reading in objects with bitarre names 
using the slash-sign convention for J, quoting J< characters in the input 
string (see page 27}. Although the S5 convention for reading strings 
as atoms is not directly implemented,'it may be simulated through the 
device of a dEADMACRQ character tsee Example 4„ page 3&1* tor really 
oddball atoms t the s trim ^quoting convention saves the effort of 
having to "quote 11 every non-alpha be tic character in the name* Ihe 
functions EXftLQDt ana EAPLOuEC provide ■ the means of breaking up an 
atom into a list of the characters of its PNANc, using respectively 
the conventions of PRIM ana PfilWC (see page Til PLATSIZE aha rLATC 
ore equivalent to \tt x J; lengchl exploaetx J11 ana to 

\t[x J UengthE exploded[x 1 ] J respectively . riEALLIbl is the means to 
apply fltAU to a list of Characters rather than to the String of the 


list Oi 


current input channel. rtAKInAM also taxes as argument a 
Gnoracters, and creates an. atomic object whose ^.vit: is cor.,>05.^ iron 
iiioia cn^recters f this new object is not Ij.i'uK.'^ 

■jtLcii'a, a new function, is provider as a wvy to splice cut ,jn 
ele-nent rrtwn a Use iin effect using rir'LAbni; the surgically trI.1 eci 
list is returned, which will be t<i to the original list unless t ha 
element removed was «it tne first of cna list* UeL-ic is imple,.,anted 
as an LoUuh so thet it may oe applied witn two arguments, or witn 
three arguments - the optional thiro argument using an upper ii.-iit on 
the number of deletions to he made, ihe default option lor the thiro 
argument is "'delete ell occurrences’"* ueLtlc uses an cPoAL test on 
each element of the list * UtLu is provided to operate just Iiice 
JtLiXe except that an tO test is useo, ordinarily, one writes {koTO 
r0& IDhLu A rGU) )* 

In conjunction with tne hmut; feature, a test, machine language 
liQ is provider, whose action is most accurately described oy the 
macro-produced expression used by the compiler in place of the DO 
expression* 

iuO inoex initval step fun donep , ■ .) 

exponas into 

(Pi'KJJ (index) 

tdfclu inaex initval) 
tag {OGMI> (oohep CHfeTUttfc index))) 

-a 

-a 

(5blu index stepfun) 

(dO tag)) 

fne compilation or a DO actually results in the compilation, of its 
corresponding mbd* using DO witn the interpreter newsver, reouces the 


overhead Of inaex Manipulations and is oiuth more innaaiobic. Mote tnat 
the fragment indicated above by “ + * . 11 may include prog tags, 

yd's, RtHdRii^s, etc* examplei 

(DO 1 b (ADD] I) (GftEATEJtP l hJ 

icom aNGi£NW*B£RP ca^k ijj) (petu*n (quote fyon j> 

(3tTQ Sbfl (PLUS SUM (ASP \}}i> 

There are specialized J/0 functions to access ano utility the 
various peripheral aevices attached to the PUPO/iD* a DEC ^4^) display 
scope with character generating features* a light pen input from the 
display scope, a CalComp plotter with an interpretive subroutine 
package (which accepts a wide variety of commands Including the 
plotting of a display from the OfcC 34D>, analog-to digital and 
digital-to-enalog converters for use with robotics oevlces and with a 
few other random devices* a vioeo signal processor attachable to 
either a Modifieo 111 imago dissector or an 1IT image dissector (an 
image dissector, or “Yidissector**, Is like a TV camera except that the 
scan is random—access addressable rather than continuous end 
sychronized*) There are no card reading or punching facilities, but 

r 

all the external maoory devices available through, ITS are available * a 
paper tape reader ana punch* four DcC magnetic h r:iicrc u tapes, three 
Idh model 2311 magnetic disc units, and a Data Products Line printer* 
There is also provided a software simulated vidissector, which can 
read storeo images from auxiliary memory* so that pattern recognition 
programs may be tested regardless of the physical condition of the two 
real vidissectors. 


1 ha ft.nCtion STATUS h&s been instiling: ts u centralized means 
of querying the status ot many system variables ana conditions, -jivon 
an appropriate argument, it provides* the limits ailotbtuj, tar the 
various storage areas in memory, tne amount oi core occupied by the 
Job, the a.aognt of storage still fri>u in a given er?a i currently 
irap1ernenceo only for ”froe storage”, “full war- spate 1 ', on- “ulnary 
prog ran; speca”), the activity of tne various I/O channels t the current 
input channel for (ifeAb, toe syntactic category of the 2- w - A0011 
char actors useu for input to m=AJJ, switches for voric-G garbogii 
collector features, switch to allow reaping of numbers wit:* 
non-decimal digits thexadecimal, for example), the switch to inhibit 
decimal-point print wnen printout is in bas^ ten, cne switch to 
inhioit direct linking from compiled coos, the switch to inhibit 
•address checking on array accessing, and the Term of the top luv^l 
function* The function GSIATJb provides a means of setting all tnase 
variables or switches, except for the allocated iiralts of storage- 
areas* A number of system variables, including same oi thoss 
•mentioned above, are implemented «±? the special value cull of an atom, 
ana are tnus referred to at a “global” variable* There will be on 
appanuix tA/PcuiulX Clwhich will explain more of the details of using 
STATUS and bSTATtb* 

vO+friiin is a ao-nothing function, roli&ii type, which merely 
returns "CGi-WcUT"* uECLASt, also an hSUbii, is similar, except that 
the coiLipiler tax&s notice of UbCLArtt's, iirfbAA operates as described 
on page G and is called like N C uftLAfc. rdi> - ir the value of s is 
non-illL t than “t-uG“ is printed out ana the Or^akloop ent^reu* 


I/O Channels* HEAD and HAiiU' 


The major Input function for any LIEiP system is READ, which 


inputs characters 

, one at* 

t ima * 

from 

ths current input channel. 

interprets tne 

characters 

as 

being 

the 

Itnear“pa renthe sized 

representation of 

an s-expression 

for 

list), 

ano constructs the 


s-expression in ths f r&e storage area of the system* When a 
sub-section of the input string is parsaa as an atom token tfor 
example t a string of alphabetic characters followed by a space), the 
/unction INTERN is called to see whether or not an object of the same 
PfiAWc is aireaoy in the QEL1S1* if so, no new structure is constructed 
by H:EAL, but instead the atom toxen is identifier witn the atomic 
ooject already there* Otherwise, a new object has to be created, with 
PNAhE composed or the inputted characters of the atom token* ana the 
resultant placea in the GULIST* Rather than the caro^oriented 
functions STA3TREAD and ADVANCE, MACLISP has the hew fucntion RtADCh 
whicn inputs exactly one character from the current input channel and 
returns the atom whose PHAttE Is just that One character tea Ilea in 
LISP]*5PM a N character ooject"}i as with HEAD* the junction INTERN is 
InvoKed* The new function TV I also inputs exactly one character, but 
returns the numerical atom whose value is the ASCII value of the 
inputted character. 

There is a unique input channel for kcAD, pEADCh, ana TV I 
whose normal, or default, source is the job console, by typing !u on 
the console, or by calling SoTATUS with an appropriate argument, the 


input channel source will he switched to an auxiliary memory rile 
previously selected by the function UEEAD {it is, of course, sn error 
to try to change sources when no file has been selscteoJ* The 
argument to Ufi&AD, an FSUbfi, spacifys the device anu two file namas, 
out if no argument is supplied, certain convenient default options 
will be exercised* As soon as the command is given, HEAD lor ricAuCH 
or i f I) oegins inputting characters from tha selected fils, ratner 
than the job console? the job console is re-selected as source 

whenever F5 is typed on it, or SSTAIUj is callee with appropriate 

argument, or when the enp-of-flle character is encountered in the 
selected file, 

Prebaoly, the most important use of the auxilliary merjory as 

an input source is to augment, massively anu rapidly, the store of 

named LI3F functions* Instead of typing many UEi-Ul'/s or DtrPRDP's at 
the console, the user simply stores a sequence of such forms on a 
file, selects the file with UREAD, and gives the JC command. The top 
level function is still running, so under normal circumstances, the 
forms are reeu In, tVAh^eo, ano printed ouc (unless all output 
channels have been disenabled)* frhen all is oone, i*e* the 
eno-of-file character is encountered, the Jou console is re-selected* 
The t - G-ir ch-arater is not actually usea by SEAD or hEADCK or TYJ* but 
merely serves as * signal to restore the console as input source* 


Of course | a selected file may serve as a o^ta source for a 

program which uses READ, The following sample program reads in a 

sequence of numbers* terminated by a NIL* and, returns tneir sum, 

(LAMBDA NIL 

(PriOD (SUM X) 

CSETQ $UM 0) 

(URfcAD LOtS A NUMBERS) 

(SStATUS IOC Q> 

A fCOND ((NULL (SLID X (READ))) 

(SSTATUS IOC S> 

- (RETURN SUM>) 

((MOT (NUMBER? X)) 

££RS (QUOTE (NON-MUMERIC IN FILE))))) 

(SETQ SUM (PLUS SUM Si) 

(GO Am 

To illustrate soma other features* the example is re-written noting 

(11 the switch for input channel source is actually the value of the 

glooai variable *Q t so in this particular case* the IOC {for I/O 

control) commands may be replaced by a 5EIQ or lambda binningi more 

» * 
Importantly* the status may be pushed and poppeo by iamboa or prog 

binding! <2) if READ* implemented as an LSUBR, is called with one 

argument * the E-Q-F character not only causes the console to be 

re-selected as noted above* but also causes READ to return Its one 

argument as a value! if the E-O-F is not encountered while reading the 

current s-a repression from the file, then READ operates normally! thus 

a read mode is available which will actually reaa an E-O-F and return 

seme given quantity; (3) The name of the file is made an argument for 

the .sample function and APPLY is used with UREAD {Instead of 

constructing an appropriate form to give to tVAL* a necessary test if 

ARPLf is not capable of applying an F-type function). The revised 

example dues not require a NIL to terminate the nuiubers on the file* 

sinci the E-O-F causes reaa to return an unlikely quantity. 


CLAmnDA (ML) 

£ Pried X tdJ 

CSnTti SU.'m ii' > 

£ APPLY <QUOTJ: UfifeAfcJ t'lL) 

£ 5 tT& tu I) 

j-'l (-w-OjnJJ' { (c-)i CScTu X ( hcAD CwUdTE r L'Cti— c— D - ■ ~ j }}} 
t-LUQTE r CiOi t—t - 0 —i-) J 
tRcTUR-N SL..-I > j 
£ CrJUT (NUtiEfnlP XiJ 

£e.£ii (QUOIc JU-rtiziii IC L. r Il£ j )) )) 

£SjdTQ SUM (PLUS SU'4 X>> 
fCO AJJ> 

The Syntax used by READ to parse tne input stream of 

Characters into an s-expression is almost identical to tj.at oeycrio-uJ 

on pages o ana 24 of LISP i*brrt; a few extensions, one or the:.: very 

powerful, aris noted below* except for strings representing numerical 

objects {on of the inore complicated tasks for wEAiJ, tne syntax is 

very character ortented ano centext-independent, Thus the characters 

meaningful to READ fall into nine categories* 

ID alphabetic* i*e* J, A“ t ■'ts"', etc*, and ektenuea 
alphabetic, *,g, fJ t% lj &”, ■*+*■ t rt - J, t etc* 

C2J decimal oigtts* i,e* H l% "i" t "j"', , * * "9", "hi" 

(51 context-ospendent number modi]urs, i.e, 

£3aJ “4" for fixed point scale factor iEVaicator, 

[3juJ for floating point exponent indicator, 

£ 3C1 ,l+li for e left-Shift in case 2 notation, 

£3d> M + fJ and N - Jl for algebraic sign* 

£3e) "t 1 * for decimal point ; 

£4 3' open parens, i, a* n £ ,J 
£o) uot, i»e* h ." 

£u} close parens, i,e» “J 11 
£7J ruoout i ASCII vaiu* 177} 

£dl the 1itera1-chardcter-quotlng character, i*e» V 
[yj macro characters, specifiable unoer program control. 

except when precaeoeo oy a slash, all other characters encountEsreo. oy 

RtAU «re simply ignores and discarded, Dot surprisingly, toe 

context-dependent characters of category £o> are also included in 


otner cotfcjgcritfs well. 


rhe slash is the stanoaro litaral*character-quoting c^ariictai' t 
which means it is usea to incorporate non-alphabetic characters into 
the print~nernes of literal atoms, ano any AbCIl character except 
rubout which follows slash in the incoming character stream will oe at 
that point treated as if it were Of category (1) isee bottom nelt of 
page 7 ior examples end more details)* Actually, any maximal string 
of composed of characters from categories (U and (2.1 will normally be 
parsed as a literal atom token unless it consists only of digits, in 
which case, of course t it is parsed as a number atom token* Thus, 
"IA 1[ is a perfectly good literal atom token ior MACLISP, and 
Incidentally, so is "/I2 4i since the first character will ne inputted 
as category (LI. There is no limit of M characters for atom PNAlEs, 
as suggested in LlSPl.&Ptt* A feature is provided in which any string 
Composed of letters and digits ana preceeaea by a M +’ f or 11 is taken 
as a number token, using “A", rt £% Jl £% * . * as supra-oectaial 

digits* The feature is not normally turned on, ana may be switched 
with 331 ATtlS* 

bhen inputting from an auxilltary memory file, the rubout 
character is ignored, but when inputting from the job console, the 
rubout Character causes the proceeding Character to be "ruboey-out* 1 , 
ic is rewoveo from the buff area input string, and immed lately 
printed cac*. again on toe console to announce its removal* No special 
character, or sequence of character is necessary to signal tha encs of 
an s-^expression since it Is determined wholly by syntax* Needless to 
say, when one s-expression^s worth of characters are fuly inputted, 
typing a rubout will have no effect on them, for the SEAD^ing will 


ni i h. 


have oacn accomplished# 

The syntactic cat&fory of any character J.iay be inspect a 
jiiw'di, and kidy actually Cni altarsa with 1 ATdb poga t.\i * i^us 

one cotilu rt-sptcify w 1 ^ to be in category (4 >, or " 1 11 to oe in {6> t 
instead of in U), (The unfortunate user cou la even sene hlmsel* up 
the ^cAt stream without a parens by shutting off the category (4J 
meaning for J '£ lf J* Syntax information is stored in c. ^ks-woru taolu, 
along with a PinUnE translation y the latter feature finds its u^e 
primarily in converting n a H into n A“, M b 11 into J ’ b M , etc* so that one 
flfitio not continually hole oown the shift kay whan using a model j? 
teletype * (itodet ob teletypes eno t>£ consoles have only 141 

characters on tnelr xeyooerd - toodel teletypes have all 2uu 

Characters Of the n«u AbClI alphabet>, however, H /a rt will still be 

inputted as “a"* i^ote that ail syntactic ano translation properties 
attributed to characters only apply to the operations of ficAtv KcALiui-i 
ana EVl, explained on page 2J, directly input one ciis racter*) 

Tne REAuMAukG character Idea is a means of using L Ibr 
functions to generate s-exprtssions at AbAd time; quite simply, 
wj^rsver a macro charcter appears in an input stream, it is replaced 
by tne result or calling an associated function* A macro character is 
uecLareu ana its corresponding function specified with SoTAIUi, and 
each such iiLauro is further classified into one of four types (probably 
best understood from the examples belowii fi> slsuiental, immediatet 
ttJ elemental, oelayedi I3i splicing, immediateJ and (4) splicing, 
■Jelaydu, The ilrst dimension indicates whetner tne result of the 
associate^ function is to be treated as a single element, or whether 


It £.lou id Qi ij list which Is eppenueo, or spliceo, into a forming list 
ii.e. it is a list t rsgment'/. The second dii.i&nsion indicates tne 
"tiMJ 1,1 at which tn& associated function should oe c*. iieo - since fiiiiAD 
may be Called t recursively! by tne aSSocl^t^ rUnction, it is 
important to specify whether the recuraivsly-ofiileu cakes its 

input -as those characters immediately follow log the occurrence oi the 
macro character t or whether it waits an^ uses Laosc characters coding 
in after the tirst-*ini tinted hcAL has Input tea its share. runctiens 
associateo with immediate macros have no arguments, tndse with relayed 
macros have on* argument„ which is bound to the current prcuuct of 
liEAU* 

Example i. in oroer to use B, s N in tne input stream tnsteao of 
y (QUOTE s)", thfe character single—quote is oetlarec os elemental, 
Immediate macro with function t 

XiiJi list CQUOTHi reaoMJJi 

Thus when RcAb'ing "(CONS I MrOO Oil irdU)]' 1 * as scon as the 
single-quota is encountered, AEALj Is called recursively to obtain (rOO 
OH i'QU> whicn is then COiiiPineo in the tall to list, ana the final 
result is Che same as if 

tCOiiU l (QUOTE r <E00 ON YOdii) 

■*ere the expression to oe read in* This facility with sing I unquote 
iias been aeaiciea so meritorious that MACLISP contains the definition as 
part oi its Initial structure - one would nave to remove ** n froiu the 
macro character category, again using ^STATUS, if he aid not uesire 
its use. 

Example th Using the same function as in. example fc, let " i" be a 


Splicing* immediate macro 


then 4p (r£VAL 1 3EriXJ to* i'OuJ)•" is re«-a in 


(FEVAL l UJQIE tftio CiJ VOUIJ* 

Example 3* Let ***** be a splicing, delayed macro with function 

MU1? 

libel! foe; 

MtxJl Leqlxt rlgbtanglebracket 1 -► 1-41L.? 

T ■*■ cons L x v footreaot J 1 111 

IreaolJJ 

The following engllsh description Of the action of this Junction is 
offered to the the reader who has not already adduced iti a maximal 
sequence of s-expre ssions terminated by a is rtsd anu a list of 

them. In the order in which they ware read* is returned* hith *'<" so 
embellished* the UQ example on page 2$ could oe rewritten 
(□013 (ADD] 1J COfitATERP I N3 <) 

(COM3 E (h'OmOUbEkP CARR 1)3) (RETURN (OUOTt rOO}))) 

(SETQ SUM (PLUS SUM CAtR 13 3) 

> 

Example 4* Although an elemental! 1 tuned Lata type example has already 
been given!, this one is produced to show how the literal atom string 
feature described at the top of page 04 of LISP 1.5PM can be simulated 
in MACLISP* Let u $ k be a macro with function 
Mill 

prog Henoch? xi 13? 
reaochl 1; 

endch J= reaochHl 
A xi- resdehl3; 

Eeqix? enachJ ■+ returnCreadlistflJJ3i 
1 :*= appenoilt iistLSlsShi xJJ? 
got A J J] 


The syntax for number tcleans is similar to that descriutu in 
LIoPI *oPh, but 

U> the input base for integers is not necessarily ceh* it is found as 

the value of the global variable lEAb£ t which is initially sat to 

eight.. 

"ii H uoes not serve as an octal indicator* rather JP . IJ serves as a 
□aci.nwl indicator* e*Q»* the string "oth illegal in Ubr l,, f is 
taken as an integer base ten regardless of the value of IJASe. 

(Jt M w ano H w-" act like operators on two integer tokens; i"atb« 
results- in humber a multiplied by IbASt b 11 n)eg; N ^o tf results in 
number a multiplied by 2 H> times* Assuming IbAbt Is eight, than, 

"43^6* % p|, hf32* PJ , Jl ldt3 JI * and H 64, +2" a 11 denote the same numerical 
value, 

< 4) it is permissible to begin a floating-point number token with a 
decimaL point| however one must remember tne advice to place spaces 
around' a dot which is intended as e separator for a dotted pair, but 
which oecurrs adjacent to a digit. 

Internally, numerical objects are 36-bix quantities with one 

of two possible inuicetors - PIXMM or FUMUtt. Thus all record is 

lost of the lorr* of the token in the input stream which gave rise to 
the number, ano it is possible that a printout of the object will not 
yield the same string that causeo its generation* 


i-or PiUhT, Pfilli 1 1 PklftC, onu i'YO output tners ore Your 
independently enaolea channeLs, et-ch with, its own switch in the ioris 
of a glooul varieties* 

11J t iisr joe consol a* norrlML value for *n .actios jLjoauLIou 
C 2) the data Products line printer; uon-AIL for to means 
enabled 

£31 the i;^v j4l oi 5 -play scope, buffered for cam ratter output 
by 1 Fo t non-ML ror +W means enaoleci 

£4J an auxiliary jfLan..ory aevicc or remote console, 
previously salectao by the function UviLjHcJ mdn-v. IL vmImu 
for + m^ans enabled* 

dines ail four switches arc variable values, tneir statti .nay ca posheo 
and poppttci, along with that -of the state of tna current input channel 
{see pages 23, 25), by laraoQe or prog binding* Ins variable'a names 
ueriva from cha earLy Implementation of i/C control 1 typing f- t Tp* 
["L, H, or ITi respectively sat td, fVi t tu, + a , and ta to non-NIL, ano 
typing Tb * fv, Pe, fY, or Pr sets the r&apcctive switch to NIL. 
ALthough th«s* five switches may be changed with atIQ, the function 

IdC tana SsIAiUS) is provided to perform, by evaluation, the same 

action that occurs when a control character is typed on the job 
console* An output channel Selected by ijinnlTa, ana possibly written 
on after ehubi&eient» is then closed ana filed with the function Ur I Li: 

the ilia structure of ITS does not permit any other access to the 
output file until it has bean properly closed ana filed* Optional 
arguments to JElLt ar& file names, with certain uefault options, which 
will become the two names identifying the file on an puxilliury memory 
cevice, 

uhen PHIM or PHI NO is outputting tne ciar-actars ror a 
numerical object, the base representation is not necessarily ten, but 

tne Value of tne global variable bAdE, ana if th«- bass is ten, then 


ini.(=ver-output-sting is rolloheu by a oetir«.til point* ±cr proper 
r^oo-in Under the convention (2) uescrioeo, on pa<;-v . Jwiver, tnis 
decii^dl-point^printDijt can ha inhiuitac. cy setting i.,o glodul. vuri&^ie 
*NOrOI.< F i to n on-id L* Ho other formatting fattur-s yet -astiSt in 
mACLIjJ^, it is possible to output in case representations' larger limn 
ten ianu less thtn thirty-stivan) i but tnere stiii ic,n, ii.iiui = uity 
aoout tills feature. 


The Compiler, LAP, and Aux Hilary A Ha 


any functions, because of their intriguency 02 ua i- , are not 
part or the basic MACLISP system, but may be loaue., in ana usiu w:,en 
so desired, Tne LISP compiler anu LaP assembler are two suen utility 
routines* noth are written in LiloP cooe, as arm rcA^f'i/s, but 

the compiler is so large that the initial PbP/6 configuration just 
aoout enough core to hold a system with a compiler loaoeo in unu leave 
some free storage for smooth rurining* As a result, compiling is 
u sually oorte only in an augmenteo LloP system emuallishao with a 
compiled version of the compiler* The compiled £APA'S an- rtiA/S 
occupy snout U t 000 <47*^*) cells cinu run about, tan times rsstar than 
their LIbp counterparts ifor example, with similar amounts of working 
space, compiling the compiler takes Jf* minutes usirtg interpreted 
code 1 , but only 3*1 minutes using compiled code). In addition, 
compiled cooa requires on the average only about half as many ceils as 
ooes the LIoP code giving rise to it, ana does not require the 
t line-consuming marking phase curing garbage collection which is 
necessary to protect the cells holding LI3P code* Although the 
compiler may be applied to functions defined or read into the 
embellished system, it is generally usau as £ file transducer * i*e*, 
s-expressions are read in, one at a time to prevent free storage 
strain, from a selected suxilliary memory file, unu those which 
represent function definitions, such as fUErUW * * *) or fuEhRAOp * 

* ,) , mi compiles into corresponding LAP ccoe on an output file* 

ror each function compiled, the generated LAr output is a sequence of 



^"expressions, ana for each machine instruction or l«u<u i, iL,r.,Lj\naiwa 
Ly w hit* This format is used, rutner than a single-list iori^i. as 
describee in Appendix J of LiSF1 * 5tVi T so tqat Laj- .a^y i in ch& 
asse,.iljly worus one at a time a no thus avoid undue strain on Irae 
storage, Forms in the input ill* 

iu hCLAIic , . 

which have no effect when LVAL'eu, signal certain coju^itiuns to the 
compiisr, such uS special ueciarations, etc* other forms which not 
function definitions or LiCLAiit's ire merely pc ssec fron Input to 
out pat file, This scheme has worked. Quite well - most japugging is 
oone with interpreted coue {which is quite fast any why i , ana wnch a 
file oi functions appears secure, it is compiled ior subsequent us** 
Although one expects a speed-up in general of about a factor of ten, 
many functions seam to Ob limited by the speeo of machine language 
o Juft's, such us ttbAD or ASdOC, ana some Show speso-ups of less t:i».n a 
factor of two* 

The first implementations of LaP for MACLISP were entirely i 11 
cXPFi“FcXP.ri form, out very shortly an “inner loop 11 was cooed oy hand in 
LAP anu appengao to the file of EXPO'S in oroer to be boot strapped in. 
In fact, So critical is this “inner loop 1 ' that when one remainder of 
j-Aa is compiled, the ooserveo speed-up is only about a factor of two. 
Currently, the greater part of this critical loop, comprising about 
cells, is resident in the system, as a compromise between in a 
undesircole effects of having all 1instructions in the system and 
one uriuasirsnly long tlma required to bootstrap in toe critical 
portions. 


As & language, LAP very closely resembles that or i.JuAu* the 
me chine-language assembler taevelopeo at tne Artificial Intelligence 
laooratory following the style of PeC-'S MAC.-fO assembler! the .:-mjor 
urawouctts *re occasioned by ( IJ the dependence on ktAJ tor input, jncj 
C2J che difficulty of emulating more than 0 small suos^C oj. ,.iI l-A**s 
extensive macro facilities. The si ml lenities *na tuir^ t nowever. ior 
LAP is an in-core asseoiblar and loeuer* whereas ^ilLuio is a two-pass* 
off-line, ass enable-only system. To incorporate i^ILAj nsseiiibleo 
subroutines into MACLISP, a fairly sophisticated relocating anu 
linking loaner is required* anci occcaslonally the extra effort is 
warrantee. over the other alternatives! t j }. merely using LAP. 
especially If the subroutines total less Inan a raw thousand 
instructions* (LJ olrectly ■assembling the subroutines along with the 
entire LJbp system. Heedless to say. for each alternative, there are 
reasonable applications for which that alternative seems best suited* 
The assemble anu lo«ao processing of LAP cases about 14. seconds per 
AfiSb-wora block of instructions (as measured on an average tusk - the 
LAP code for the compiler!, whereas the action, of AJJAd :.nay often he 
gulc^er* On the other hand, LAP n-eeas only aoout 4bLm cells total for 
smooth operation* whereas AlOAS* with a large nash-cogled taoie, 
g^ncraly occupies In excess of cells. 

A sample compilation* 

( ucr Uu P OP SYfi (A J 

£ ltd TP (CAli i£) PoOtrARS) 

£PLIPAOP (CAR k) (Clip X) (QUOTc SYm )) 

(CAR X>1 

would giva rise to the following LAP tooe commentary in square 
brackets is for illustration only* and is not prnoyced ny the 


compil«r) ; 


(LAP POPSYM SUBS) 

[PUSH P 1 ) 

UOv'i; 2 (SPECIAL FOOVAftS?) 
(HLftZ « I I) 

(CALL 2 (FUNCTION TESTPl) 
(MGYE1 3 (QUOTE SYfo)) 

(HfiSZ 

(HLkZ t» I P) 

(CALL 3 (FUNCTION PUTPftUP)* 
(HLtSZ I PJ 
(sue p t% e a i id 
tPOPJ PJ 
NIL 

11 CALL 1 ' is not. a POP/O Instruction 
Interpretive routine which either 


[save X on PULI 
[get value- of special 
iree variable FOO^AhjJ 
Lget (CAP X > J 
[execute function itSi'F] 
[ M SYM“ is 3rd aryl 
[get (CUP X)* £no arg) 
[get (CAP All 
[perform PuiPKOPi 
(return (CAh X)J 
(restore PUL i 
iex.lt] 


out causes a trap to a special 
(JJ acts as an interface netween 


compiled code ana interpreted functions (e*gp t if liSTP is an EXPW, 
then APPLY will have to be called), or 121 smashes the CALL with a 
direct 1 inx to a machine language subroutine (if the code for the SUplF 
PUTPPO-P begins on location $72, then the CALL will be replaced by 
"PJ5HJ P,0 72“>. 


As mentioned already on page d, the functions of TRACt are 

encoded in LISP ana stored on an auxilliary file. Several other 

debugging aids are likewise implemented and Stored oh the COtf device t 
although soma have been compiled for greeter operating speed* 
tl ) The whole editing package as used at BOLT, CLRANEK* and Nth,HAN in 
their B ESN-LISP is available both in USp ana LAP coda* 

(?) A debugging aid called SPY, available in LISP cadet SPY Is 

essentially an evaluation controller with a more sophisticated 

braar-restart facility than SPLAK. 

f 3 1 A "pretty-print" ana indexer package. In LISP coda, GFINUEF is 
useo to print out functions in a propsrly-indenteo format for easy 


viewing? and UkilAiJl are file transducers for tne sa.-ie purpose? 
ifllfcA starts a file and prepares an inca-ex for it including- runelions 
osfineo, free variable functions (or undefined i unctions! reierenced, 
and a very brier analysis of each defined function. 

(4> A display generating package for easier construction or tne arrays 
from which tne DtC 54&) Display scope takers its commands. Available 
both as a machine-language augmented system, ano in pure Ll*r coac for 
regular sy starts. there are routines to generate displays or points, 
lines, curves, connected lists of points, axes, labelling text, anu n 
moveable cursor. 

It hfl5 been noticed in LAP, in TAACt:, ana in the display 
generation packages, that some parts can be encooeo in LISP only with 
great loss of efficiency, while many functions are for all intents and 
purposes Just as efficient when encoded in LISP as when encoded any 
other way* The Interpreter, a very general tool, has its 
shortcomings; but, for a number of jobs, they are Just never 
noticeable. 

H*B. Appendices will appear to explain to the user the details 
Of using the compiler, LAP, ana other such aids as above* 


t-uture Plans 


ror soma time there has been expressed a hope of speeding up 
tin; running of compiled arithmetic programs, lo this arm, we are 
working with the WAThLAS project on a new representation for niiuiuers 
so that compiled code may hanale numbers directly, ratner than through 
the medium of an amorphous garbage^-collectable storaage space, I i. is 
the consumption of number Spaces, end consequent t idle-consuming 
garbage collect ions, which is responsible for the time slowdown of 
arithmetic operations in LISP. There will be a space and a 

hLOJvUM spacei numbers will be represented by pointers directly Into 
the appropriate space, without requiring an atom header or any free 
storage space* However, this in itself is not sufficient ror great 
...usings - it will only reduce by some small factor the number of 
number conses available before a garbage collection is necessary* i'h 
infHwative feature of the plan lies in the creation of two more linear 
stacx areas, the JrlXhUW pal ana the rLOfoUtt pul* When a compiled 
function is entered, a small block of the pul area is taken for 
holding the partial results of numerical computations, and pointers 
into the pdl area may be passed along as arguments to other functions 
just as pointers into the number spaces would bet thus no tonsing need 
be done in order to pass along arguments to other functions. In 
certain cases of compiled cooe calling EXPft code, additional work may 
na requires at the interface in order to convert numbers in the pul 
t.rea into regular LIbf numbers {sue discussion of "CALL‘ f on page ;>7>- 
Curtain envelopments in hardwars modifications for the PiWI^ 


ar& opening the way for several desirable features in .AACLI^p. \ 
hardware pacing Scheme will allow jobs In the ITS system to overlap 

core areas with other jobs; thus a pu re-procedure, or re-entrant, 

implementation of the basic WACL15P system oecomes feasible so tnat 
^iany active LISP jobs may be initiated with each one requiring only as 
oiuch core as is needed for its own private storage arias* In 

sedition, it will be much more practical to iraplment a run-time 

linking reldcator for the purpose of loading MlDAS-assembled 
subroutines into an already running LISP job (a relocating loader 
could be trivially Implemented now, out the linking phase, for global 
symbolic references, depends on ready access to the job's symbol 
tablei this is somewhat cumbersome in the current implementation of 
ITS, but with the proposed paging scheme, a job which neeos to access 
Its symbol table coulo attach it simply Joy adding to its legal page 
allotment those pages of its symbol table*! he are planning new ways 
to store binary programs* both those loaded by LAP and those loaned by 
the yet-to-be-implemented linking raloceter, so that the whole of 
binary program Space may be dynamically relocated at will* The next 
step, then, is to re-work th* representation of atoms so that all 
storage areas may be dynamically expanded ano/or relocated; the 
garbage collector will then be able, as the execution of the job 
progresses, to re-al locate the amount of core assigned to any given 
sto-reags area* 

The current representation of atoms nas leo to the problem 
discussed at the top of page \Z, and this probleiiL must be averted in 
orcier to realize th# dynamic re-allocator* One way of solving the 


t 


problem is the creation of a separate space for tine storeage of sco: 
but apart from this problem,, experience has shown the desirability c.i 
an "atom header" 1 space on other grounds, Tha VAL^h, j-N.V ,[■ t o,nd 
function properties of an atom are generally of paramount luporU-nce - 
the sore rapidly they may be retrieved* the better. Our current 
thinking on this matter calls for a space of atom htadars cont^J ninn* 
for each atom, immediately accessible pointers to the vALUt* Pa .V.h T 
and function < 11 any) properties, with additional bits lor garden* 
collector usage! ana for a separate space for Pl'iAflE storage, We would 
expect a speed-up of a factor of two in the Interpretation of cXKR 
code t and a small economy i perhaps l5 a to in the amount of memory 

occupies by atoms* The proliferation of separate store-age spaces 
not so bad as It might seem at first* since one of the ultimate 
benefits Is the Dynamic re-allocator - tha user would be less 
conscious than ever of the separation of memory. 

The problem referrea to above may be circumvented by another 
application of the paging concept* allocation is fixed* but each space 
is made to be very, very large. A LI51 5 Job would utilize the full 
eighteen bits of the address space, Out only those pages which have 
been referenced are actually held in memory. The major drawback to 
this plan is that our hardware modification plans do not provide for a 
page-on-oemand interrupt; but at any rate, this circumspection is at 
oast a postponement of the real problem. 

Soma discussion is also taking place on the matter of o, 
program able lormat specification for number printout; on the 
posslole application in LISP of the '"local - global" distinction found 


in the block structure of ALbQLi ana on s more versatile I/u chuiuitl 
sturcture {such as that of LISP 1 *b st the it^nrord Artii'itlal 
[ntailicence Laboratory*) 


APPENDIX A 


Preview of Global Variables and Table of Control Characters 

NOUUO* NCCHK, NORET, BAKGAG, GCTWA, "NQFOINT, J RS£Tall set 
accessible switches* namely their own special value cells. Thus CNOCHK 5) 
aocanplishes the same as fSETG NOCHK 51. 

There ere a number of global variables critically pertinent to 
system operation - a brief catalog folFowsi 
ATOM VALU E OR MEANING 

BABE Radi* to be used when printing out fined point numbers, 

UBed by PRINT. 

BPORG When the system is Initially loaded* ell the memory from 

SPEND SPORES up to- the top ot the core a I lotment 1 5 available as a 

kind of amorphous storage [not part of free storage or full 
word spade. Subroutines loaded by LAP are generally Stored in the 
lower end of the space end Arrays ere dynamically stored gt the 
higher end. BPOfiG is adjusted by LAP to Indicate the lowest 
currently available cell of this space* and BFLHD is updated 
by the array handler and garbage Collector to indicate the 
highest currently available cell. 

OHRCT Number Of character spaces remaining in the current output line. 

PRINT enforces b maximum output line length of LINEL fq.V.)* and 
when CHRCT reaches zero* s carriage return is emitted grid CHRCT 
reset to LINEL* 

One means Of displaying Information on the 540 display scope IS 
by the creation of "display arrays" - each such array 1& a 


DISLI ST 





ERRL I ST 


I BASE 


UNEL 


NIL 

OBL1ST 


sequence of instructions, to the 340 (see Manual for usage) „ 

Dislist is a list at the special array cells of fliose displays 
that ode want active. In time sharing USB the display is rot a 
actual ly carried Out urtless th-erp Switch Is on (q.v.). 

^ben at non-£RRSET error is detected, control passes to an 
Initialization routine, just before re-entering The top level main 
loop. Aver age other things nape CEVAL; ERPUSTj Is performed, thus: 
allowing the user to add his own two cents to the error receiving 
process. 

Padij* tp te used by READ when converting a number-1 rke string on 
Input. Hay be any valu-6 from I to 36., except that any number-1 I ka 
string having non-decimal digit must begin with either +" or 
EXAMPLES: 

If XBASE is S, than 11 47' 1 Is read as 39. 

If I BASE is M., then "W" is read as 16. 

If I BASE is 16., then ,r +fA" Is read as 27, 

The line length for PRINT to use. After UNEL characters have 
been outputted, a carriage-return line-feed Is automat leaily 
Inserted. When the job is started Up, UNEL is set to 72. for 
Jobs controlling teletype, and to 43. for those controlling the 
da I ariel s . 

Nil 

A list of lists: each interior list (of atoms) 1 Is called a 
bucket. Every afom reed in by READ on READCH, or explicitly 
iNTEW’d fs put on The GBLIST. If there Is already an atom of fha 
saine pngme on the OBLfST, then r>o new entry Is made to 0E3LIST, but 
instead INTERN returns a pointer to the a I ready-ax I st Ing aTOfti. 

When job is started up, set to NIL It at teletype, to 0 If at RF 


TTY 


Datanet. 


Herb "sc" and r 'y n are used as- mets-characters, Typing fit - control 

On a job console, or evaluating (IOC k) or (SSTATU5 IOC x) 

seta the k switch to non-MIL,. The k switch is merely the value 

of the atom fx - up-arrow x except for G and K, Each switch, 

except for A,G, and X has a corresponding control character to 

turn ±t off {set to NIL), denoted hy y^ 

X_ lean i ng of Switch y 

A Available to user, not used by system* (none) 

Id Enable line printer to receive PRINT output. E 

D Turn on output of garbage cot lector 

statistics (one set produced at each 

col rection) 

F Enabre displaying tram the display arrays Y 

on DlSLI ST. 

G Unconditional quit* r>ot caught by ERREST, (none) 

N In time sharing, turn on the DIS devices to V 

receive PRINT output. (Physically T the DIS 
device is the same as the 340 display, and 
one cannot use them simultaneously). 

P Seize the Cal comp plotter facility. U 

Q Let READ receive Its Input from the S 

currently selected Input fife, rether than 
the Job console. 

R Enable the currently open output f( I* fo f 

receive PRINT output. 

W Disenable the job console from receiving V 

PRINT output, 

X Quit, acts very much I \ke an internal error. (none) 





*P D E*iDlX e 


Some ft II I ocator Good I OS 

When a LISP job is. started up under time sharing, the system 
ffrst i nterrcgetas the user as bp the allocation of memory for the various 

storage areas used. The system types: 


LISP 105 
ALLOC? 

if the user then types "N” for 11 no" certain standard options are 
taken; jf he types ,r ^ h for "Yes 1 " the system then prints out, line by 
line, the standard options, pausing at the end Of oaofi line for the user's 
response. 


CORE = 

22 

FXS = 

400 

FL5 ■ 

400 

FEGPOL * 

= 777 

•SPECP = 

777 

FXCL = 

7 

PXbL = 

7 


By typing a space or carriage 
Option; by typing a number, he 
digits Is a number base eight; 
decimal point Is a ngmher base 


return, the user accepts the standard 
specifies that ailocation [a string ot 
a string of digits followed by □ 
ten)i hy typing an alt-mode all 


nomair> 1 ng standard options are taken end the allocation ph-ase completed; 
by typing a control-S the allocation phase is re-started. 

In the Current system, CORE cannot be specified to be less thgn 
20 blocks (I6K words). Regardless ot the specification for FXS (FIXNUM space) 
remaining after allocation Is divided as follows] 

3t/32 to free storage and i/32 added to the PXS allocation* ThT? is partly 
motivated by the fact that RffAME strings are stored in FXS . FLS- Is FLOWUM space, 
regular and special PDL r s are obvious, and the two number PDL's will be relevant 
only for functions compiled by the soon-to-be seen fast arithmetic compiler. 

Additional core may be grabbed by the system when more binary program space 


1S needed. 


APPENDIX C 


STATUS and S STATUS 


The FSUBft r * STATUS and SSTATUS arc implemented to aid in 
querying the state of the LIS? system* and in setting, sums of ita 
conditions. The first item in the argllat ia always an atom which 
tells what kind of query* or command* is wanted; but some of the other 
items may be EVAL'ed* just as with the F5UBR ""ARRAY 11 . A dispatching is 
done on the first five character? of the PMHE «f the first item, so 
that if atoms like COSE and N01RJQ are REMOB'ed* the funcClone of STATUS 
and SSTATUS may still be properly performed f In fact* the main purpose 
of the function EXCISE is to reclaim from fttestorage all those atoms 
with $UBR. properties whose functions have been aubsumed by the STATUS 
series. In the tables below, the small letters x* y* n, m, as well as 
"dev 1 * and "uar" are used as metavariables ranging over CIS? atoms, "frag" 
is used for representing a list fragment. 



me a nine-, or value 


CCHTRAH n) 


The character translation value in the nth entry 
of the READ translation table* 


(CORE) 
OCRUNIT) 


A 2-liSt of the most recently referenced device 
and snarne* Updated by UREAD* UWRITE, and SBTATUS 


Number of blocks of core occupied by the job. 


(DATE) 


A 3-liet with year* month* and day number. E*g*, 
on Mar 20, 1970, this would be (70* 3* 20*) 

A 3-list with hours, minutes* and seconds of the day* 


(DAYTIME) 
(FREE y) 


Amount of Space available in the y space* Currently 
y can be BPS for binary program apace* F$ for 
frees forage, FXS for fixnum. sapee* PLS for flonuma. 


(CCTWA) 


The GCTWA feature (see page 9 of Progress Report) 
consists of two switches - one forcing TWA removal 
on every garbage collection, end one forcing 
removal only on the next occurring collection. 


0 neither switch is on 
I "next" switch is set, "every"" ia off 


10, II N every"i switch is set. 


(IOC x) 


If x lb a character with a control action listed 
at the and of appendix A, the this gives the 
state of the x switch- E.g., (STATUS IOC B-) 
tells whether the line printer is selected. 




(MACRO k) 

MIL IF k ±a not a READMACRO character (see 

Progress Report page 27); otherwise a number 
describing the type of macro. 

0 norital 

1 splicing 

10 delayed 

11 delayed and splicing 

(RUNTIME] 

same as calling the function RUNTIME 

(SYNTAX n> 

the bitwise decomposition of this number tells 
the syntactic categories of the nth entry in 
the READ syntax table for characters. 

(TIME) 

&aue as calling function TIME 

(TOPLEVEL) 

NIL if standard; otherwise the form need in the 
top level function (see Frogr-eEE Report page 10) 

(TTY) 

MIL if job console is a teletype, 0 if a CE detanet 

(UREAD) 

HtL if no file currently open by UREAS; otherwise 
a list deacribing the open file. E>g< , 

(FNAMEl FHAKE2 dev uef} 

(UWRTTE) 

NIL if no device open by UHRITE for writing; 
otherwise a 2“list describing the -current 1 y open 
device in format similar to CRUNIT 

(+5 

T if the super-decimal digit feature ia enabled, 

NIL if not. This feature allows non-decimal dibits 
to be used when reading in numbers? any atom, 
beginning with l1 4- r ' or"-"* except those single™ 
character atoms themaelvea* will be interpreted 
a a a number base IMSE. r 'A" la uaed as the tenth 
digit, ,P B" the eleventh* etc. 

w 

tf x is among MOUUO HORET *NOPt>IHT tTQCHK 

*R£ET returns the value of the associated 

Switch. 

atallac for SSTATUS 

mean ins. or action 

(CHTflAN tt m) 

Seta nth character translation to m. 

(CORE n) 

Requests the time-sharing system to aet the job 
cere allotment to n blocks 

(CRUM1T dev) 

Updates the "current I/O unit’" to be device dev 

(ORUNIT dev uar) 

As above* but elao changes sname to usr. 

(FREE EPS ii J 

Will insure th#t there ere at least n words 
eveliable in binary program apace. Will increase 
job core allotment if necessary 




(IOC jt) 
(MACRO k y) 


(MACRO k y S> 
(MACRO k y C) 
(MACRO k y S D) 
(SYNTAX n m) 
(TOfLEVEL k) 

(11READ frig) 
(UWRIIE frsg) 

(+ y) 

(K Y) 


same as mi/log " (IOC x) 11 

Sets m ts ^ 4 re^dhAcrO character &£ tegular 
type with associated function to be the value of 
E + g+ * (S5TATU5 MACRO /' (QUOTE (LAMBDA NIL 
(LIST (QUOTE QUOTE) (READ) ) ) ) ) 

SplIcing type (see Progress Recoct page 27) 

delayed type 

splicing and delayed type 

Sets nth entry in READ syntax table to ra. 

Sets the topleveL form to the value o£ x. (see 
Progress Report page 10) 

same 34 EVAl/ihg 11 (UREA 0 frag) 11 

same sa EVAt/ing "(tJVRITE £rag)" 

Sets the state of the super-dec iiaa I digit feature 
to the value of y. see above under STATUS 

If v is among NOUUO HDRET *HQFOIHT NOCtiK *RSET 
EAKGAG, sets the state of the k switch to 
the value of y. 


APPENDIX D 


Sctne About Trace and Break 

This F5LBR QfiEAK is used much like a break point In DOT, EVAL’Ing 
(BFSEAK ident predicate? 

»cl I I do noth i ng If the value of "predicate" J5 NIL, otherwise will print 
Out "ident" tor Identification and then enter a READ-EVAL-PRI NT loop. Thus 
ante may inspect variable values arid initiate certain remedial actions. 

Exiting from the break, which returns NIL Is done by typing the atom 
"t P' 1 ( alt-mode "P" space }. An alternate form is available: 

(BREAK I dent predicate retvsl) 

in vhich the value of "re+vaP Is returned, rather than NIL. By using the EDIT 
feature. It Is very convenient + 0 [nsert end delete such ''breakpoints" [p 
EXPR and FEXPR code, 

"RACE is a FEXPR generally found on the File COMjTRACE LlSf, U5ed to trace 
the flow of Control of a program. A function which has been set fer tracing 
will regurgitate a little note each time the function is entered or exited. 

The basic format of the -message is, for entry, 

(n ENTER FOQ erg I 1st) 

wh&OQ n Is the recursion depth at this call to the turret I on FOQ, and Urg I i st 1 
a list of the arguments for this cell ^unless foo is a FEXPR or FEUBR, in 
which case arglls+is directly the one argument - see Progress Report page- 2,] + 

The base format open exiting Is 
tn EXIT too value) 


where value is the returned value- Of function Foo. 


The user, when setting up a trace, may request other values to be printed out 
along with these messages ; tor example, it (CDR Li and {PLUS B^ORJS LOC) were 
requested, a SampTe message might look like 

(6 ENTER LAPEVAL. (f i // ( CM) 35001) 

whan L = M 0 f>, FiPORG * 34777, LOC = t and the argument to LAPEVAL Is f. 

S i m i Iarly upon exiting one might see: 

(6 EXIT LAPEVAL 1 // (0 M 35D01 ) 

In addition, the user may request Ml that only one, or perhaps neither, of 
^argl ist 1 ’ and "value" be printed out, (21 that calls to the trace-set 
function &e M +raced" only when a given predicate is true, and 13J that e 
conditionai break point be placed as the first item of execution of the function 
The syntax of a trace request is very simple - evaluate ir (TRACE ri r2 
rn) 1 ' where each ri is either an atom foo ffr-oaiii ng set up a trace for function 
foo with standard opt ions1 or a list interpreted as follows: 

Moo c) Trace foo, showing both “arglist" and "value" 1 H c = 

BOTH; showing neither ft C = NIL; showing only "argilsi" 
if c * ARG; showing only value 1 ’ if c = VALUE 

(foo c si s2,» 4 sn) As above, but also shew the values of st, sZ,...sn 

(foo COND pred e) As above for "il <*o c) J -but trace a call to foo 

only if "pred h evaluates to non-NIL When foo is entered. 

The atom AftGL.iST, where it occurs 1 n pred, will havo as 
value the angtist discussed above. 


(too BREAK pred c) - As above for "tfoo e >” bu+ 

insert a breakpoint with Edent ificat ion too and 
conditional predicate pred* just after entry to too. 

Comb I nations of these forms are permitted, such as {too CQND pi 
BREAK p2 c sf s2) but one must not forget to Include c as 
part of each individual trace request. The standard option mentioned 
above Es just 11 (foo BOTH)”. 

A function set for tracing actually has its function property altered - 
GUBP's an EXPR's are turned Into a new EXPK; FSliBR f s and FEXPR5 are turned 
into a new FEXPR. This new function handles the administrative details of 
tracing {and incidentally may introduce quite an overhead in time), and 
app|ye the original function to the erg I 1st. One may reset functions to 
their original p re-trace definitions by evaluating 

(UNTRACE fool foo2 ... fcon) 

EVAL’ing "(TFtACE) ,r - win yield a list at all functions', current | y being traced 
and EVAL^ng 11 (UNTRACE] " will untrace all such functions. 

EXAMPLES: 

1 > To trace BUGLE whenever its first argument rs greater fhah 30,, 
and to trace all calls to HORN, Lei us suppose that BUGLE is 
defined as (DEFUN BUGLE (N X) {PRQG2 (SLEEP N) (HORN X))} 
then - 

(TRACE HORN {BUGLE CflND-(GREATERP N 50) BOTH)) 
will do the job, as welI as 


{TRACE HORN {BUGLE CCflD (GREATERP (.CAR ARC LIST) 30) BOTH)) 


2) To Trace OEFPROR, showing only the argI I&t, and breaking 
whenever a property Is about to be defined for BLAND i 

(TRACE (DEFPRQP BREAK (EQ (CAR ARGL1ST) 'BLAND) ARC) ) 

3) To trace LAF, shewing on!y the amount of binary program 
space 

(TRACE (LAP NIL (DIFFERENCE SPEND BFCfiG) 1) 

One of the functions on the TTWCE fils fs M ? tl EVAL'ing 11 (7)will 
Couse a printout Of a short note about TftACE with a tew example uses. Since 
this note takes up valuable space,, it may be removed by EVAL'ing l|l (?t)’ l L 
EvaI'lng ^{REffTRACE} 1 ’ will remove ail the functions of TRACE, 


APPENDIX f 

Using Inde* and Grind 

FART f f ntroduptlpn 

INDEX and INDEXI are functions that p-emit the LIS-F programmer 
to mono easily debug fir interpret long, comp I i cate<f LI5-P programs 
Eksth functions Operate on SOffle file indicated 1 by this user producing new 
file w I tii Information for each function defined by a GEfPROP or DEFUN : 

f. type (EXPR, FEXPfl, MACRO) 

2 , arguments 

3. free- variables appearing 

4 r free variables modified by SETQ 

5, functions in the file used En the definition 

6, functions in the file that use the function defined 

7, undefined functions or free variables used as function names 

AddftionaMy r notes are made of any functions defined more than once 
and of any function already defined in Ihe System. 

To use these functions, one need only perform the following 
I ncan tat Ions; 

t , Read 1n some ve rs[on of GRIND£ F: 

(UREAD E GHTND COM) ( a*, (UftcrAD' Sftivp Hsf 

fQ £ means type (J with CONTROL key held down] 

2 *. Read I n I ndex file: 


(UREAD INDEX LISF COM) 



3. Attack f r l-e: 


(INDEX I f r l*narr»ef filenames device user) 

(UFILE f r lename 3 filename 4 ) 

The commentary will then appear III a tile tearing the names 
filenane3 and filename 4 as selected by the user. 

It shpLi I d b-e real lied that the functions involved ore still in 
development* and any bugs should be reported to Patrick Winston. 

WARNING: the programs assume all fixed point numbers are decimal. 

Part II D etails 

Three free variables give the user some control over whet the 

program does, namely ALPHA, GRIND* and GOBBLE. Normally all cane set 

to T. If ALPHA Is set to NfL* the information for the functions appears 
in the same order as do file functions in the file under investigation. If 
ALPHA Is set to T^ the order is alphabetical. 

if Grind is set to T, function definitions are added and are 

interleaved with tunction commentary'. If GRIND Is set to NIL function 

definitions are omitted. 

If GDB8LE is set to T* GRIND Is set to T automatically and all 
commentary appears ihslde the Scope of COMMENTS. The ides is to produce 
an indexed file that LISP can read and enjoy as if Ft wete the original 
file. Materiel in the original file that is not the form of □ function 
definition also appears In the Indexed version according to the following 
rules: 


I. Anything appearing after the first function definition in the 



2 . 


original file appears at the end of the Indexed file. 

Anything appearing before the first function definition in 
the original file appears at the beginning of the indexed 
fits. This prevents misplacement Of any loader code that may 
be present. 

wrth GOBBLE set to T, It Is believed that all material in the original 
file will be retained, even multiple definitions bearing the same name. 

IWUX ! | s designed to parallel file conventions of GiilHUi 
refurns the same sort of thing as its value. That is; 

(INDEXf fnJ frv2 dev user) 

+ 

( natures 

(UFILE fn -f fn 2 dev user) 

IfSJEX differ? from INDEXi only In that the usually desired file 
naming Is done automatically according to the to! feeing convend ions; 

1+ If GOBBLE Is sot to T, the Indexed version has the same 

names as the original tile and replaces it* 

2. Otherwise, if the original file has the names fnI fnj, then 
the indexed file will have the names fnf INDEX. Naturally 
care should be taken to avoid Indexing a file with the names 
fnf INDEX, for the original 1 file will be lost in this case 
and the Indexed file will not contain all of 1ts malariaI, 

EVAL'Ing ' f (K£MGRlTflJ>“ will remove these functions read in from the 
GRIND FILE; H (REHlNDEX) ,h will retttove those read In free; the INDEX FILE. 


APPENDIX I 


USING LAP 


Hi is sec+fon of this memo replaces on+ffey A. I memo 152, 


PDF-6 LAP. 


INTRODUCTION 


Lap Is a LISP FEXPR Cor FSUBR when comp I I etHwh ich Es eKecuted 
primarily f-or Its side effect — namely assembl ing a symbol ic listing Into 
core as a machine language subroutine. As such, It Is about the most 
convenient and rapid way for a MSP user to add machine language primitives 
to the LISP system, especially if the funetloos In question are In a 
developmental stage and are reasonably small (e.g. t —500 Instructions) T 
Also, the LISP compiler currently gives Its result as a tile of LAP code, 
which may then be loaded into core by LAP, 

Virtually, any function definition, whether by DEFPRCP, LABEL, or 
LAP, Is an extant i on of LI SP f s primitives; and as In any actual p rog ramti i ng 
language, the si da -effects and global 1nteractl ems are often of primary 
importance. Because of this, and because of the Inherently broader range 
of machine instructions and data formats, a function quite gasify 
described and written In PCP-6 machine language may accomplish what Ts 
only most painfully and artificially written Tn LISP, One must, then, 
consider the total amount of code In each language to accomplish e given task, 
the amount of commentary necessary to Clarify the Intent of the task, given 
the program (In this sense, LISP code rates very high -- a major benefit of 
the confines of Lisp Is that a good program serves as its own comment. 



and usual Sy needs no further elucidation.) , and other considerations of 
0 rcgr arum ing eonvenianee , 

Experience has shown that many such subroutines may he assembled 
by a small system, i.e. one such as the current LAP, without conditional 
assembly, macro, or sophisticated IFtera! generation features. These 
latter three features are the major dEfferences In language between LAP 
and MIDAS; the major operational differences ere M) LAP Is one-pass and 
MIDAS is two, (2) LAP uses the LISP READ function while ME PAS Is mo-re 
efficient, and S3) LAP assembles directly into the binary program space of the 
LISF system using It while MIDAS flies Its assembly on □ peripheral 
dev Tee (which must then be loaded by 5TIHK or the ITS version of DDTk Thus 
one must consider the scape of hi 5 tasl*; in relation to the language desired 
and the operational ease preferred. 

Unfortunately neither LAP nor the system reported In A.I. memo No. 127 
solves the problem of loading and running arbitrary binary programs Jointly 
with LISP, Something lit;e a runtime primitive STINK Is needed for LISP, 
and such may have to wait for further development in the multiprogramming 
cspablI I ties of the POP-6 systems, 

FORMAT OF LAP USAGE 

A cal I to LAP Is even a littlB more nOrt-standard than indicated in the 
introduction In that not all the arguments ere included in the S-expees4lon 
which commences assembly — LAP repeatedly calls READ, operating on the 
S-expressfcns read-in (from the current Input device and trie), until a NIL 
is encountered, at which time assembly is terminated. Only after successful 



termination of assembly is EPQRG updated and the correct flag (St6R, 
FSUBR or- LSU0R) inserted on the property Met of the atoms which rvsms 
the newly assembled functions* Thus a call to LAP would look like the 
seq uerce. 


(LAP P00 SLJBR) 

(DEFSYH A 1 > 

(THLRZ A* 0 CA»^ 

CfrCfJ P) 

MIL 

I n&te&d'Jof the toI lowing written In a hypothetical style after 7090 LAP 

{U.P ((FOQ SUER 2) 

(MAX A* 0 (X)) 

<POPJ P) 

(CHLRE * 554+S7.) 

(POPJ . 263+27.) 

(f * 14) 

{A * OJj 

The most serious drawback to the latter style fs the Strain pieced on free 
Storage, since the entire expression would have to be fn core before 
evaluation could begin* 

Hence evaluation of RAP name Indicator) or fLAP name Indicator 
address update) begins a LAP assembly tor a function with name "name" of 
type 11 indicator" (such as SUBR, FSUBR^ or LSUBR) and with entry point 
the first location assembled into; If the second form Is used, assembly 


begins In the core location "address” Instead of LiPORG. Ordinarily at 
assembly termination, BPORG is Set to the address following the fast one 
assembled into by LAP, but H ^update-' 1 Is NfL, BPDRG is undisturbed, 

LAP acts Oh the Quantities ft reeds as follows: 


qUWIHTY 

NIL 


E+cm 


[DtFSYM atom sexp 


(EtJTR’V name type) 
(ENTRY name) 


ACTICti 

Terminate assembly and return. Literal generated 
constants are assembled into core, symbol definitions 
from DEF5YM are flushed, and worthless atoms are 
removed from the oh I Fs+. A common error is to forget 
that carriage return and E-O-F are not atom break characters e 
NIL should he followed by a space. 

Assign "atom 11 an assembly symhpI value equal +0 the 
address of the current assembly location; no additional 
assembly takes place. Thus one uses atoms for symbolic 
JoceTlon Tags and under certain conditions these names are 
entered! |n EDT’s symbol table (see below}. 

4 

. atom Saxp) 

Assign "atom 11 an assembly symbol value equal to 
fEVAL sexp); no additional assembly takes place, arid 
those names are not entered into ODT's symbol table, 

Sets up ^name n as a function pf type "type 1 " Cdaf su It-samo as 
call tp LAF^Jand with entry point the currant assembly locution 
no further assembly fakes place. 


(COMMENT I 1st-™ fragment) Gy a neat technique,, no unnecessary atoms remain on 

the obi 1st after assembly; however, during assemhly, 
there must be enough full word space to hold print names 




■for ail the atoms and to hold the numerical varues 


(SYMBOLS t-or-n11 } 


(BLOCK « > 

(ASCII aeK P> ■ 

(SIXBiT sexp) 

(x) 

(x ; I 1g+-gragment) 


of a fen 1 LISP numbers. 

NIL turns off and non-NIL turns on the LAP feature which 
passes along symbol ft location names to the jab symbol 
table; currently all symbols so entered are treated 
as- global, but at some tfme Fn the future this may be 
modified to permit flexible dupllest ion of symbols in 
several programs. If the SYMBOLS pseudo-MP appears anywhere 
In an assembly, then the names of functions thus defined 
Will be transmitted to DDT, NOTE WELL; Although LISP 
stems may be composed from upwards of 90 characters, 
those used as tags which are entered in the symbol table 
s houid include on Iy legal wI das cha racters, and 
only the first six characters of the atom’s PNATt are 
relevant to this feature. 

A block of n words is assembled, each containing a zero. 

The s-expression sexp Is £XPLGDEC T d and the resulting list 
of 7-bft Characters is assembled, 5/word, in successive 
words, 

Same as for ASClf, except that the 6-bit form of the 
cha racta r is used,, 6/word . 


x (which Fs not one of the above iteacs) 
is evaluated by LAPEYAL and the numerical result Stored 
In the current assembly location, which Is then advanced 


by one + For the meaning of LAPEVAL,. sec the next section or 
assembly constituent's, "I 1st-fragment" Is ignored and 
may serve as. commentary tsee note above tor Comment) , 

<* y) 

■tx y ; 11 st-{rBgn»nt > Same as imuedlately above* bat {L$H CLAPEVAL yS 73*} 

Is added Into tha stored rasa ft, 

tx y z ; list fragment) Same as Innedfately above, but {BOOLE I (LAPEYEL zl 

777777) is added Fnto the stored result. Forward 
reference symbols may appear only In the z field; that 1$, 

It 0 symbol Is used before It Is defined. It must be 
» used only to Tha address part of the instruction, 

(X y Z w) t 

(x y z w ; list fragment) Seme as Immedlately above, but the numerical value 

of (LAFEYAL w>, treated as a 36-bit quantIty* Is swapped 

left-half fo^ right and then added Into the stored result. 

LAP Initially checks whether qr not the atom # Is a member of the list f 

forming the assembly word> and If so sets the Indirect bit tbit 13) and deletes 
«« 

the @ from the Indicated assembly;, thus an 8 docs not count as one of x„ y, z 4 
Or w t 

One notices that there is a strong simllarlty between LAP format and Ml GAS 
format, an essential difference being that LAP processes assembly quantities 11 in orde 
let-to-rfght, to determine which Is the AC field, which the address field, and 
which the index field,. One must remember that the LISP read routine Imposes a 
certain dissimilarity in text for the two assemblers* Since "space"* “comma 11 * 

"left paren M , and "right paren" are the only break characters for atocn names* 


Hence spaces are necessary on both sides at □ semi-colon or at-si§n 
when they are used as described above, arid the AC Held may not be ommltted 
in instructions like (JRST 0 ADDRESS). The index field need not be 
enclosed in parentheses as In MIDAS, but Fn general there Is no herm |n 
doing so (see "anyother list" under ass«nbFy constituents), 

FORMAL AND ERROR RETURNS 

Normally, after terminating assembly, LAP returns a list containing 
the current value of RPORG, and the names of the subroutines just assembled 
(there may be more than one entffy for the routine assembled, the principle entry r 
declared |n the cal I to -LAP and others may be declared by rfiearS of the 
pseudo-operation ENTFTf). If, after assembly, some reterenced symbols 
remain undefined, the message "UNDEF SYMBOLS", followed by the cffending 
atoms, will be printed out. If There were any mut I i p I e-def i tied symbols, 

^AAIBIG SYMBOLS" is printed along with & list of the offenders. One 
particular disaster caught by LAP Fs indicated by the message "not encugb core 1 '. 

Since LAP uses so many freo variables (and tor several other reasons), 
one should allow a cai I to I fip +o e*it by itself rather than stepping It 
with fS or some other ruse, 

ASSEMBLY CON S TiTUENTS 

Each of the parts of &n assembly word Ek, y, z > or w) rs evaluated 
by LAPEVAL, in the context of the assembly. The assembly quantFties whose 
CAR Fs among DEF5YM, £VAL, COMMENT t and SYMBOLS, may be termed 
pseudo-ops in that they do not give rise to an assembly word but merely 








give directions to the assembler, $ and ; are treated special ly by LA P 
and are not considered to be assembly constituents. 


QUANT|TY 

VALUE ' 

4 

number 

Fixed-point numbers elways evaluate to themselves* 

Floating-point numbers in en address fieFd may produce 

Random Resu1ts, 

NIL 

Same as (QUOTE NIL), 

N 

The address of the current 'ftssambly location. Same as 

in MIDAS . 

atom 

Except for S, \ t * h and NIL, all a+ens evaluate to 

their assembly symbol value; i.e* (GET (QUOTE a+om) 

QUQT£ s exp) 

(QUOTE SYlWlQ, 

(MAKNUM (QUOTE seip) (QUOTE F'^UH} . For example, 

(WOVEI ^ r (QUOTE (SHALL LIST))) assembles into an 

instruction which moves a pointer to the list (SMALL 

LIST) F nto accumuIatpr t , 

(SPECIAL atom) 

Provides 3 pointer to the value cell of r 'a+om"^ thus 

(MOVE f, (SPECIAL FOO)> moves the value of FOO into 1 

instead of a pointer to FOO, as would happen if 

(QUOTE FOO) were used. In addition 

(MOVE 1, (SPECIAL BAR)) 

fMQVEMi (, (SPECIAL FOO)) 

accomplishes in a SUBR what (SETQ FOO BAR) does In an 

EXPft, 

(FUNCTION stem) 

Essentially the same as (QUOTE atom), but ts used to 




QUANTITY 


(ASCI I sexp) 

(SIXf! JT sCxp} 
{% X y Z w) 


V ALUE 

emphas 12e fnst ''atom 11 is used as a function ng^e (see section 
on UUQ I ns t ructI ons >. 

Provides a 36-bit ascii representation of the first five 
characters from (EXPLODED sej< P^ - 

As above, except slxblt representatI on. 

Literal generation feature* like lx y, z (w)J In MIDAS. 
Assembles fc j z v) as described above and provides the 
address thereof. Similarly, the forms (S x) , (£ X y), (f « y Z 
be used. A literal constant is restricted to the z-fleld 
(or address field) of a LAP instruction* but may appear 
nested to any finite depth. Example (WOVE t, I Xj) 
moves a machine floating point number into I, whereas 
(MOVE I i, (QUQTE H.0>) moves a LISP number, 

SYMBOL DEFINITIONS 


LAP Is InifI atized with □ few basic symbol definitions needed by code 
generated from the compiler, Such os P * J 4, and proper addresses forflUMVAL, 
SPECHIND, UNBIND, FLOAT, etc. Not aFI PDP-6 Op-cOcfSs are pre-def 1 ned> but If 
one of the missing ones Is .used 111 LAP code, th&fi LA P wri 1 I obtain a correct value 
for |t from DDT. Temporary symbol deffnit Tons may be made by the user with 
the pseudo-pp DEFS-YM (see section on "Fcrmaf of LAP usage! ♦ 


> may 


If there remain any undefined* referenced symbols of the end of a LAP 
assembly„ fhen the DDT symboI tab|e Is Interrogated to try to find a definition, 





Thus one can write LAP code as If [+ were being' assembled together- with 
the LISP system. ^hen passing along entries to the DOT symbol table, or when 
looking op a symbol In It, any character of the symbol not a legal MIDAS syllable 
constituent Is converted to the character ir , 1P 

Four trap Instructions are provided to help link up compiled code with 
Other functions, possibly In EXPR forms: CALL, CALLF, JCALL, JCALLF, The 
first two simulate a transfer like PUSHJ P, F00> while the latter two simulate a transfer 
like JEST FOO, The accumulator field of an Instruction with op-code in this 
sense tells which of the three argument conventions has been followed? In 
(CALL n { PUNCT l CM f)> If , then the EKPR-SUHR convention Is used, 

with the h arguments located in accumulators f to ru If n ^ \f r then the 
FEXPR-FSlfiR convention Is used, with the one argument located in oceufiulator 
If n * 16 then the LSUBfH convention Is used, which assumes that accumuIator 
6 contains the negative of the number of arguments,, which are stacked up on 
the regular F'tJL Iasi on top, and the return address is on the PDL before all the 
arguments. Under favorable conditions, when CALL'i rig a SUBR, LSUUR, Or FSllBR, 
no further Interfacing need be done and the CALL instruction is actually 
replaced in core with a PUSHJ or JRST, The ops CALLF and JCALLF, however, are 
never replaced. Similarly, if MOUUQ Is non-NIL, the InstructI on-mod r fy phase Is 
inhibited. 

AVAILABILITY 

The COM device holds files E LAP and c LAP. E LAP Is an EXPR version 
of the functions necessary to make LAP work, and C LAP Is a compiled version of 
the same. If one plans to toad En a file with calls fo LAP on It, then he should 
first load in one of these two LAP files. In the future, this might be done 



Automat leal I y, but right now the user must explicitly ta*<o care of loading 
in needed auxl Illary functions, 

FvalIng ’'(REMLAP) 11 will remove as much of LAP as possible, and the 
garbage collector will be able to reclaim Its space* 

AW EXAMPLE 


(LAP MHfTFOOP SUER) 

(MOVEI 2 (QUOTE PNAMS)) 

(EKTRY DOHTFOQ) 

(PUSH P 1) 

(CALL 2 (FUNCTION GET)) 

(HLRZ 10 1; THIS COULD ALSO BE (HLELZ Iff!)) 
(mVE 1 0 (1) l GETS FIRST WORE) 

(GAJ1N 1 (X ASCII POO)) 

(JR ST 0 FOFAJ) 

(W P 1) 

(JGA.LL 1 (FUNCTION PKDfT)) 

NIL 


NUMER ICAL TOUT INCS- ENCO DED IN LAP 


On one of the 
th e funct1ons SIN, 


tapes of Jon L. White, there Is a Hie LAP routines for 
COS, ATAN [arc tangentj, SQRT, LOG [Natural Iogl], and EXP 


[base eH. Also there Is a file @ IAS which is a general metrrx inverter and 
simultaneous linear equation solver. Cal I frig 





( IA5- A HEW M M) 


performs gaussFarv row reduction on the first N rows of the array A lard in 
fact operates ort only the first M columns.);; SO that if M< N then the N + I St 
through the Mth columns of the output array contain the solutions to the 
implicit M-N+l systems of NxN simultaneous linear equations, while the first 


N columns contain the 


Inverse matrix of 


l'l 


If NEW Is ’T 1 then a new 



array of size NxM is declared arid the answers are stored in it leaving the 
Input array A alone; if NEW is 'NIL f then the output array is stored directly 
over the Inpot array and no new array declarations are done. 

Current I y y max Imiiatioh of'pivotal elements Is not done; thus I AS will 
give wrong answers on certain numerically i11-conditioned matrices even 
though they be ncn~sInguI or , It Is possible to remedy this problem, a+ scfne 
expense, if necessary, IAS also uses a portion of binary program space for 
temporary storage and may give an error message if ret femouith space Is available.. 




APPENDIX J 


NYSET 


MOBY I/O 

Used to Sat certain programmable conditions for the new 
video processor The arguments are in orders 

Filter - three bits (0 - 7) to designate the presence 
or absence of the color fitters over the lens. 

confidence - should be Q,f,2, or J. Determines the 
speed end accuracy of the video processor,. 0 being 
the slowest hut most accurate * 

resolution - that number of equaIly-spaced lines over 
the field of view - maximum of 40DQQ. (Actually, the 
video pecessor always dissects the scene onto a 2QQQ0 xZDOCKI 
grid. This merely provides a scale factor for the 
arguments to NVIB and NYFtXJ . For many reasons tOOO 
to 4QDQD |5 an extraordinarily good range for this 
argument„ 

dim - Should be In the range 0 - 17 inclusive,. Selects 
one of sixteen dim Cut oft levels. See □ hacker for more 
elucidation. 

xyz - Zero means the video processor receives its Input 
from the new ITT vldlsctor (TVC); non^zoro means the signal 


comes from the old ITT vldI sector (TV-BK 


NIL may be used for any of the above arguments, in which case 
the sped trad condition 3 s not changed. Initially all conditions 
are 0 except resolution which is 20000. 

NY ID 

Reeds the new video processor end returns a floating-point 
number (with an Information content of ten bits) wnicn is an inverse 
I rnear measure of the light intensity at the selected vidisector 
point, (The manual switch foested on the vlceo processor should 
be in the rl LIN rr position when NY ID is used, 1.Jne frVFIX When if is in 
the 11 LOG" position). The two arguircntc ore respectively abscissa arid 
□rdlnate values for the Imago dissector, and must be fixed-point. 
Returns -I.O tor the dim or dark cutoff condition, 

NVFIX 

As above tor NVIP, but is essentially a loorithmi'c measure of 
intensity* scaled between A and f777 r Returns a fixed point 
number, (NVFIX and NYYD will differ at most in the three least 
significant bits depending on the state of the ’’UN-LOG 11 switch. 

See NY ID) . Return 0 for the dim or dark cutoff condl hiori. 

NYFIX can also reed In block mode; 1* H&rrayname; nQ will 

assume, for Os n * that arrgyname has an x-value and 

arraynarre has a y^velue , and will replace the latter by 

dYFIX [~ x .y], LISP numbers are used both coming and going, but 
generally small numbers will suffice. 

One can write a small LAP routine to fill the first n words of 
sane array for Input to NVFIX* If the points to be read are related 


in some reasonable fash Ton. In e&ch word the left-half holds 


MFX 


IMPX 


OMPX 


the i -value, the right-half the y^value. and the return va I ye is 
in the rlght-haIf. 

NVSLT Is used to set the conditions for NVFIXregard|ess of which 
mode Is used. An error occurs if the first argument to NVFIX 1s neither 
an array nor a number. 

To use the A/D and D/A converters, open up the facility with a 
(MPX ad da> 

Where ad specifies the mode of operations for 1 he A/j and da for 
the D/A converter. Legal ranges for ad and da arSL 

NIL - leave status alone 

0 - close out device 

f “- open device in norm a I {image) mode 

2 - open device in fast P5C( f) mode 

See the ITS reference manual for more information about this device. 

Reads the Input mu 111pIexor, A/D, channel specified by its 
argument ta number ^ 77?. 

First argument Is a channel number, and second is a value to be 
outputted on the D/A output mu It IpIexor H 

This is just the Plot function of Mike Speclner’s interpretative 
plotter. Will require some tutoring before the user will know 
what he is doing. 


PLOT 


PL0TU3T 


PLOTTFXT 


LFEN 


If f i rst argument Is a list constructed like a DlSL'ST, then 
It w r M be plotted on the celcomp plotter just as It would be 
displayed on the CRT 540. If optional second argument is gIven, 
then a point will not be plotted os □ dot,, but rather as the 
first character of the PMAME of the second argument t Example; 
to have points plot out as asterisks; 

{PLOT I ST DISLI5T (QUOTE *>) 

PRIfiC's its argument at wherever the plotter head finds 
Itself; sample user 

{PLOTTEXT (QUOTE Y-AXIS > > 


Has no arguments l Reads the 340 light pen scanner and returns 
(count r (x . y)> where count is the number of times the light 
pen *as seen (since the lest cell to LPEN or since the program's 
beginning) and x and y are the average abscissa antt ordinate values 
of the light pen when seen. 


APPENDIX K 


PICARRAY 


PIC - PAC STUFF 

In an effort to utilize tapes vldirector scenes, severe| functions 

for performing the necessary I/O have been added to L|$F. {See PI CARRY, 

READFfC and WRITEPIC) + There are obvious advantages for the 

debugging programs to having standard, we I I -described scenes 

available, as It were, through a simulated vldlsctor, Before using 

the routines, however, one must become aware of the F mage con vent Tons 

of PicPat, Images (or scenes) are considered to be rectangular 

sub-portions of a u 3 mi t square, arid hanCS image CO-ord I nates 

are floating-point numbers between 0.0 and 4.0, This facilitates 

the mapping of an Image space onto various I/O devices. Heedless to say, 

seme discretized approx |matIon to the Image Ts what Fs actual Fy 

stored on tape, SO that the co-ordinates mentioned Fn READFlC really refer 

to the nearest lattice point Fn the image space recorded on tape. 

Once an array has been read In, however, there is no further use of 
image space co-ordinates except for the description produced 
by DESCR, Referent© to the array I S done as wSuai on ordinary 
LISP arrays. The PlcPac system will be maintained by Larry Krakauar, 

Room S39, 545 Technology Square. 

Declares an image array fo r ' use with PFcPac, Its use Is exact Fy the 
same as the function ARRAYS Fts arguments are respectively; 

the array name 
NIL 

the x dimension (or number of rows) 
the y dimension (or number of columns) 


The array elements are accessed ns usual - (array name n m3 eva I uat1 n<j 
+0 the n P mth entry In the array. 

RE ADR 1C Reads Into the array specified by the first argument (which mwi-t 

have been declarec by FICARRAY), rece i v i r>g data from the dev Tee 
and file selected by the most recent URGftD. The second and third aru'.ii;^-!■ 
specify lower-Ieft x- and y- co-ordinates respectively; the fourth 
argument Ss a delta a stsch that adjacent entries in the array are 
filled by Incrementing the Image co-ordinates by an amount d. 

(See PicPac for an elucidation of Image space co-ord I rwytes 1 . An 
alternative form is to specify separate deltas for the x and y dlreel Ion.. ■ 
(READPlC array 3owx iDwy dl or (READ 1C array Iqwx 1q* y dx dyl* 

The caordi nates of the upper-right point of the Image area read in are pivei 

by upx = lowx + xdirfl s dx and upy = Icwy + ydfm*dy, 'where xdim and ydim 

are the X-artd-y dimensions respectively of '’array' 1 . All arguments 

except "array" are assumed to be floating,, in accord with the °icPac 

convention; however fixed-point numbers fflay be used; if will be 

assumed that they refer to a 10000 by 10000 grid and they will be 

floated accordingly. If a section of the requested input area, l.e- 

the rectangle from flows Icwyl to (gpx,upy> J 1 5 not recorded on 

the Input file, then RE ADR1C prints an error comment and returns NIL; 

Otherwise It returns the name 11 array". 

WRITE?1C FSUBR 

(WRITER 1C array3 writes out on the currently open output device 
the entire array specified by the argument (|n binary rm*9ge mode!. 

In general, WRlTEFlC is preceded by a 1IWRITE and foAlcved by a LTF7l.il, 


DESCR 


D££CRX 


Part of the PicPac package If there is an argument, 

its value is assumed to be an array name and OESCR {for d es c r i b e ir 3 
produces a 1 ist of ten numbers, associated with the arrayi (xdim ydim IOwX 
Ifiwy dx dy hash yd light data) where the last three numbers give 
informat ion about the vltflsCetor used, the lighting, and the mode of 
the data. Numbers three through six are in floating point, and ''hash” 
is irrelevant, xdim and ydim arc the x and y dimension (see PiCARRAV) . 

If there is no argument given, the array described is the one xhich 
the most recent tall to READPIC read from. The array stored on 
tape which serves as the data source for the call to READPiC will In 
general have a description different from that of the array in core, 

(QE&CR H|L) is NIL 50 that EDESCR £READPIC err low* Fowy delta)) 
produces either a description or MIL depend I no on whether or not the 
read was successful, (See READPiC), 

Same as DESCR except that numbers three Through six are converted to 
fixed point, assuming a grid of 10000 by fOOOO. 


APPENDIX X 


Art attempt to update AJ * memo II6A with respect to 
items mat we[k-discussed elsewhere. 

Two iijinick Mttle goodies^ CO accumulator t3 Is not used by LISP 
anywhere, and may be ulltlzed to the programmer’s pleasure; (2) when debuggi ng 
one often finds himself crawling around in EOT to inspect +he ruins after a 
catastrophe, and It Is an annoyance to see DOT type at you 34735 when you know 
that this is a pointer to some list - theretore. If the currently open cell in 
DOT points to an s-expresslon, typing”?.?!!" will cause DOT to enter a special 
part of LISP which will print out this quantity In the usual LISP style. 

[Actually "P. 11 Is a symbol in the symbol table equivalent to M PU5HJ P, PSW 
SO- symbols must be loaded for this to work,] 

The remainder of this appendix Is |n the mosaic Style of A.k memo fi6A f 
and there are no apologies for Its terseness. 

A55CC Uses EQUAL 

A55Q Uses EQ 

Comp I Ier 

One may load a LISP ccmp I ler by typing at COT "COMPLF H" 1 , One may 
still use the previous method of compiling S fil&j. but a. more conven i en! 
may now exists, When the compiler is ready >t wUi type out 
'"LISP COMPILER 77If the user then types "IMAKLAP) 1 ' he (nay then type 
a task specification exactly as with MIDAS, TJ6 and COPY, naiwly 

target file I eft arrow? <■ source f r le?<carri age return? to spec 
that the source file Is to be compiled and the resulting LAP code 


stored away on the target file, Example: 


(MAKL AP) 

FCC''-COiF *-FOO BAR 
or LtfiAKLAF) 

FOO BAR 

In the I after Case, the target tile- will he FOO LAP. The Same 

options #xis+ as In MIDAS for default on specifying device end 

# 

sname. 

Current I/0 GevFce 

LISP has bookkeeping room for one input file* opened by LJREAD, 
and one ourput file, opened by UWRI T£ * Ihere is an internal 
register herein called Current device name, that remembers which 
□ uxi Mi ary storage device contains the newly Opened file, and this 
register may be changed by options] arguments to UKEAD, UWRITE and 
h EJKFLL^ An open read file is closed by reading an E-O-F character, 

and an open write ffle Es closed by executing 3 UF|LE fq,v,) 

Pi SAD- No longer Keeps the countars DI5CH or Pi SLR; but has been 

extended to work we IF wft-h nearly all the ASCII characters, including 
carriage return. Fine feed, and lower Case. 

Display The time-sharing system provides a means for ”pr \ nt I ng ri ' or the 

CRT 390 scope display *The N Switch. WIN send PRINT output to it. 

If ore buErds up his own display arrays, either w\tti DI5AD, or 
by some dispfay generating routines, then OaCh array A to be pert 
□f the picture must be put on PISLAST as follows: 

(SETQ DIS LI ST (CONS (G£T (QUOTE A) (QUOTE ARRAY >J 


DISLISTJ] 


EXCISE 


FJXP 

FLQATP 

JOG 


KACCAP 


MAX 

MIN 


typing (f starts the display rumilrvg tre^ DlSU&T. 

An EXPR which REMOB's many system stems which the average 
user finds of little value. Thus about 5tK>-1ftQ0 words of free 
storage may be gained, Almost all the 1 unctions so lost may be 
duplicated with STATUS or S5TATUS, Atoms remob r ed are 
REMQB RANDOM GCTWA NCHJUO NOCHK RE*ARRAY VALRFT CRUN IT 
fD FIXP FLOATP EXAM IHE DEPOSIT TIME NQRET SLEEP RUNTIME 
LISTEN LPEN DlS-AD DISINI fF and all function? mentioned in 
appendices J and K. 

A SUBR.* NON-NIL only for fixed-point numbers, 

A SU3R r NOM-NIL only for Floating-point numbers, 

has been changed to a more useful form. Essentially operates 
as H It ware defined 

(DEFUN lOG FEXPR (L) 

(PRCG ( tQ 4R *B tN> 

(COND ((CAR L) EEVAL (LIST (QUOTE IOC> (CAR 
(EVAL CADR L)))) 

In time sharing, passes control to DDT rather than the non-time¬ 
sharing ''MGCMP", If job Is disowned, then a logout Is performed, 
Has argument which Is given- es a VALRET string to DDT. E.G, 

(MACEMF (QUOTE TECQ&I$/|i/«LlSf$J» 

Art LSUBR which returns the max i mum (mime r i cel)Of Its arguments, 
ugrng contagious fioa+Jng arithmetic. Thus (MAX (5 4.0 7) Is 10.0 

As for MAX , but returns minimum. 


Numbers 


RUNTiWE 


SLEEP 


TIME 


UKILL 


LISP numbersj stored In Special areas, are represented sImply 
by a pointer into that area. Thus there f 5 a FfXNUM space, and 
a FLCNUf^l Sp&ce, OS we I I as Binary program space, and free 
storage specs (In which lists are stored). 

For time-sharing LISP, returns the number of microseconds of C^U 
time used by the current job, as a fixed-point LISP number, 
accurate to about aO mIcroseconds. 

lSLEEP n) causes the program to stop tempcrarily and fake a 
nap for n thirtieths of a second. SLEEP is a 5E.JBR, 

For timesharing LISP, returns the time counter fror; the TS SySlem, 
as a fixed point LISP number. Currentfy, this is the number of 
thirtieths of a second that the system has been running. Mot© 
that in TS LISP there Is no setting fusing STATUS, the user 
may read a real time clock to obtain the time of day. See 
Appendix C under "DAYTIME") 

An FSUBR (UKILL n> or fUKFLL tfTn) g+ill fipps tape n. But any 
other syntax on the argl'ist wrPil be interpreted as a file 
specification (like those with UREAD which it tries to delete, e,g, 
(UK1LL LOST FILE D5K, PHW? will deJete sone worthless file on the 
DSK device with sname PHW. 

PRUT'S its one argument as a valret string to DPT, Logs out 
I f job Is disowned. 


VALRET 


